SerialNumber 屬性返回十進(jìn)制序列號(hào),用于唯一標(biāo)識(shí)一個(gè)磁盤(pán)卷。 object.SerialNumber
object 應(yīng)為 Drive 對(duì)象的名稱。 說(shuō)明可以使用 SerialNumber 屬性以確保在可移動(dòng)媒體驅(qū)動(dòng)器中插入正確的磁盤(pán)。 以下代碼舉例說(shuō)明如何使用 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 =" 可移動(dòng)" Case 2: t =" 固定" Case 3: t =" 網(wǎng)絡(luò)" Case 4: t ="CD-ROM" Case 5: t ="RAM 磁盤(pán)" End Select s =" 驅(qū)動(dòng)器 " & d.DriveLetter & ": - " & t s =s & "<BR>" & " 序列號(hào):" & d.SerialNumber ShowDriveInfo =s End Function
請(qǐng)參閱AvailableSpace 屬性 | DriveLetter 屬性 | DriveType 屬性 | FileSystem 屬性 | FreeSpace 屬性 | IsReady 屬性 | Path 屬性 | RootFolder 屬性 | ShareName 屬性 | TotalSize 屬性 | VolumeName 屬性 應(yīng)用于:Drive 對(duì)象 返回首頁(yè) |