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

---

【書式】

Folder.Drive

フォルダが存在するドライブの名前を返します。

Sub test42()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''「C:」を表示します
    MsgBox FSO.GetFolder("C:\Work").Drive
    Set FSO = Nothing
End Sub