Driveオブジェクト - SerialNumberプロパティ

---

【書式】

Drive.SerialNumber

ドライブで使用されているディスクのシリアルナンバーを返します。

FDドライブやCD-ROMドライブなどでは、挿入されているメディアのシリアルナンバーが返ります。

Sub test34()
    Dim FSO As Object, DriveObject As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''Cドライブのシリアルナンバーを表示します
    MsgBox FSO.GetDrive("C").SerialNumber
    Set DriveObject = Nothing
    Set FSO = Nothing
End Sub