描述
返回指定的 驅動器的 網路 共享名。語法
object. ShareNameobject應為 Drive對象的名稱。
說明
如果 object不是一個 網路驅動器,則 ShareName屬性返回 零長度 字元串 ("")。以下代碼舉例說明如何使用 ShareName屬性:
Sub ShowDriveInfo(drvpath)
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
s = "驅動器 " & d.DriveLetter & ": - " & d.ShareName
MsgBox s
End Sub