FileSystemObject

ドライブのボリューム名を取得/設定する【VolumeNameプロパティ】【FileSystemObject】【ExcelVBA】

構文

Drive.VolumeName

VolumeName・・・・指定したドライブのボリューム名を取得する

Driveに指定したドライブのボリューム名(マイ コンピュータに表示されるドライブ名)を取得します。

ドライブのボリューム名を取得/設定するサンプルコード

Public Sub sample()
    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    
    '■ドライブのボリューム名を取得する
    Debug.Print fso.GetDrive("C").VolumeName    'C
    Debug.Print fso.GetDrive("C:").VolumeName   'C
    Debug.Print fso.GetDrive("C:\").VolumeName  'C
    Debug.Print fso.GetDrive("G").VolumeName    'Google Drive
    Debug.Print fso.GetDrive("G:").VolumeName   'Google Drive
    Debug.Print fso.GetDrive("G:\").VolumeName  'Google Drive

    '■ドライブのボリューム名を「test」に設定する
    fso.GetDrive("G:\").VolumeName = "test"

End Sub

注意点

  • 特にありません。

関連記事

コメント

タイトルとURLをコピーしました