【書式】
Drive.RootFOlder
ドライブのルートフォルダを返します。
Sub test33()
Dim FSO As Object, DriveObject As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''「C:\」を表示します
MsgBox FSO.GetDrive("C").RootFolder
Set DriveObject = Nothing
Set FSO = Nothing
End Sub