Question

SerialNumber是什么意思?

Answer 1

SerialNumber，返回十进制序列号，用于唯一标识一个磁盘卷。

• 中文名

  SerialNumber

• 语法

  object.SerialNumber

• 定义

  返回十进制序列号

• 运用

  编程

• Sub ShowDriveInfo(drvpath)
  Dim fs, d, s, t
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
  Select Case d.DriveType
  Case 0
  t = "未知"
  Case 1
  t = "可移动"
  Case 2
  t = "固定"
  Case 3
  t = "网络"
  Case 4
  t = "CD-ROM"
  Case 5
  t = "RAM磁盘"
  End Select
  s = "驱动器 " & d.DriveLetter & ": - " & t
  s = s & vbCrLf & "序列号： " & d.SerialNumber
  MsgBox s
  End Sub
  
  ShowDriveInfo (drvpath)
  
  

• 说明

• 可以使用 SerialNumber 属性以确保在可移动媒体驱动器中插入正确的磁盘。

• 以下代码举例说明如何使用 SerialNumber 属性：