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.ShareNameEnd Function