通过

VolumeName 属性

设置或返回指定驱动器的卷名称。 读/写。

语法

对象。VolumeName [= newname ]

VolumeName 属性包含以下部分：

Part 说明
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

另请参阅

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。