悠悠博客 提供视频转换器,3gp格式转换器免费下载

VolumeName 属性
设置或返回指定驱动器的卷标。可读写。

object.VolumeName [= newname]

参数
object

必选项。应为 Drive 对象的名称。

newname

可选项。如果提供此参数，则 newname 为指定的 object 的新名称。

说明
以下代码举例说明如何使用 VolumeName 属性：

Function ShowVolumeInfo(drvpath)
Dim fso, d, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fs.GetDriveName(fso.GetAbsolutePathName(drvpath)))
s = "驱动器 " & d.DriveLetter & ": - " & d.VolumeName
ShowVolumeInfo = s
End Function