Office TANAKA - FileSystemObject[VolumeNameプロパティ]

【書式】

Drive.VolumeName

ドライブのボリューム名を取得または設定します。

ドライブのボリューム名は、[マイコンピュータ]で表示されるドライブ名です。プロパティのダイアログボックスで設定できます。

Sub test37()
    Dim FSO As Object, DriveObject As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''Cドライブのボリューム名が空欄だったら「Office TANAKA」と設定します
    If FSO.GetDrive("C").VolumeName = "" Then
        FSO.GetDrive("C").VolumeName = "Office TANAKA"
    End If
    Set DriveObject = Nothing
    Set FSO = Nothing
End Sub

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