Driveオブジェクト - ShareNameプロパティ

  1. Home
  2. Excel
  3. VBA
  4. FileSystemObject
  5. Driveオブジェクト

【書式】

Drive.ShareName

ドライブのネットワーク共有名を返します。

Sub test35()
    Dim FSO As Object, DriveObject As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''Gドライブに割り当てているネットワークドライブの共有名を表示します
    MsgBox FSO.GetDrive("G").ShareName
    Set DriveObject = Nothing
    Set FSO = Nothing
End Sub