【書式】
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