以文本方式查看主题

-  ╋艺 镇╋  (http://wdystv.com/bbs/index.asp)
--  ┣◇网站建设&Web语言  (http://wdystv.com/bbs/list.asp?boardid=4)
----  ASP SerialNumber  (http://wdystv.com/bbs/dispbbs.asp?boardid=4&id=2153)

--  作者:admin
--  发布时间:2010/8/24 16:40:59
--  ASP SerialNumber
描述
  返回十进制序列号,用于唯一标识一个磁盘卷。
  语法
  object.SerialNumber
  object 应为 Drive 对象的名称。
  说明
  可以使用 SerialNumber 属性以确保在可移动媒体驱动器中插入正确的磁盘。
  以下代码举例说明如何使用 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