VBS教程：属性-ShareName 属性

ShareName 属性

返回指定的驱动器的网络共享名。

object.ShareName

object 应为 Drive 对象的名称。

说明

如果 object 不是一个网络驱动器，则 ShareName 属性返回零长度字符串 ("")。

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

Function ShowDriveInfo(drvpath)
   Dim fso, d
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set d = fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath)))
   ShowDriveInfo = "Drive " & d.DriveLetter & ": - " & d.ShareName
End Function