562.txt

来自「Java Script & VB Script 教程」· 文本 代码 · 共 31 行

VolumeName 属性 
 
Microsoft® Visual Basic® Scripting Edition
VolumeName 属性
 语言参考 
版本 3 
 
请参阅 应用于
描述
设置或返回指定驱动器的卷标。可读写。
语法
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 = "驱动器 " & d.DriveLetter & ": - " & d.VolumeName
    MsgBox s
End Sub