機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > FileSystemObject

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



このエントリーをはてなブックマークに追加