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

請參閱                   應(yīng)用于

描述

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

語法

object.VolumeName [= newname]

VolumeName 屬性的語法有以下部分：

部分	描述
object	必選。應(yīng)為 Drive 對象的名稱。
newname	可選。如果提供此參數(shù)，則 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 = "驅(qū)動器 " & d.DriveLetter & ": - " & d.VolumeName
    MsgBox s
End Sub