ShareName 属性 |
object 应为 Drive 对象的名称。
以下代码举例说明如何使用 ShareName 属性:
Function ShowDriveInfo(drvpath) Dim fso, d Set fso= fso.GetDrive(fso.GetDriveName(fso.GetAbsolutePathName(drvpath))) ShowDriveInfo = "驱动器 " & d.DriveLetter & ": - " & d.ShareName End Function