【書式】
Drive.Path
ドライブのパスを返します。
Sub test32()
Dim FSO As Object, DriveObject As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''「C:」を表示します
MsgBox FSO.GetDrive("C").Path
Set DriveObject = Nothing
Set FSO = Nothing
End Sub