VolumeName

讀/寫屬性。語法object.VolumeName [= newname]VolumeName 屬性有下列幾部分：部分描述object必需的。總是一個 Drive 對象的名字。newname可選的。如果提供的話，newname 是指定 object 的新名字。説明下面的代碼舉例説明了 VolumeName 屬性的用法：

Sub ShowVolumeInfo(drvpath)

Dim fs, d, s

Set fs = CreateObject("Scripting.FileSystemObject")

Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))

s = "Drive " & d.DriveLetter & ": - " & d.VolumeName

MsgBox s

End Sub

ShowVolumeInfo(drvpath)