欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

請(qǐng)參閱                   應(yīng)用于

描述

設(shè)置或返回指定驅(qū)動(dòng)器的卷標(biāo)。可讀寫(xiě)。

語(yǔ)法

object.VolumeName [= newname]

VolumeName 屬性的語(yǔ)法有以下部分：

部分	描述
object	必選。應(yīng)為 Drive 對(duì)象的名稱。
newname	可選。如果提供此參數(shù)，則 newname 為指定的 object 的新名稱。

說(shuō)明

以下代碼舉例說(shuō)明如何使用 VolumeName 屬性：

Sub ShowVolumeInfo(drvpath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    s = "驅(qū)動(dòng)器 " & d.DriveLetter & ": - " & d.VolumeName
    MsgBox s
End Sub