SerialNumber

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

基本介紹

• 中文名：SerialNumber
• 語法：object.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 sEnd SubShowDriveInfo (drvpath)