【書式】
Drive.DriveLetter
ドライブ名を返します
ネットワークで共有しているディスクなどで、ドライブ名が設定されていない場合は""が返ります。
Sub test27()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''Cドライブのドライブ名「C」を表示します
MsgBox FSO.GetDrive("C").DriveLetter
Set FSO = Nothing
End Sub