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

請(qǐng)參閱                   應(yīng)用于

描述

返回指定的驅(qū)動(dòng)器的網(wǎng)絡(luò)共享名。

語(yǔ)法

object.ShareName

object 應(yīng)為 Drive 對(duì)象的名稱。

說(shuō)明

如果 object 不是一個(gè)網(wǎng)絡(luò)驅(qū)動(dòng)器，則 ShareName 屬性返回零長(zhǎng)度字符串 ("")。

以下代碼舉例說(shuō)明如何使用 ShareName 屬性：

Sub ShowDriveInfo(drvpath)
    Dim fs, d, s 
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
    s = "驅(qū)動(dòng)器 " & d.DriveLetter & ": - " & d.ShareName
    MsgBox s
End Sub