VBS教程:屬性-SerialNumber 屬性

NO IMAGE

SerialNumber 屬性

返回十進位制序列號,用於唯一標識一個磁碟卷。

object.SerialNumber

object 應為 Drive 物件的名稱。

說明

可以使用 SerialNumber 屬性以確保在可移動媒體驅動器中插入正確的磁碟。

以下程式碼舉例說明如何使用 SerialNumber 屬性:

Function ShowDriveInfo(drvpath)    Dim fso, d, s, t    Set fso = CreateObject("Scripting.FileSystemObject")    Set d = fso.GetDrive(fso.GetDriveName(fso.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 & "<BR>" & "序列號:" & d.SerialNumberShowDriveInfo = sEnd Function

請參閱