ドライブのシリアルナンバーを取得する【SerialNumberプロパティ】【FileSystemObject】【ExcelVBA】

構文

Drive.SerialNumber

Driveに指定したドライブのシリアルナンバーを取得します。

SerialNumberプロパティのサンプルコード

Public Sub sample()
    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
            
    '■ドライブのシリアルナンバーを取得
    Debug.Print fso.GetDrive("C").SerialNumber   '12345678
    Debug.Print fso.GetDrive("C:").SerialNumber  '12345678
    Debug.Print fso.GetDrive("C:\").SerialNumber '12345678
    
End Sub

注意点

• シリアルナンバーのため、ドライブにより取得する値は異なります。

関連記事

• ファイル名と拡張子を分けて取得する【FileSystemObject】
• パスとファイル名からフルパスを生成する【BuildPathメソッド】【FileSystemObject】
• サブフォルダを取得する【SubFoldersプロパティ】【FileSystemObject】
• フォルダを削除する【DeleteFolderメソッド】【FileSystemObject】
• フォルダをコピーする【CopyFolderメソッド】【FileSystemObject】
• フォルダを移動する【MoveFolderメソッド】【FileSystemObject】
• Drivesコレクションを取得する【Drivesプロパティ】【FileSystemObject】