Sub test27() Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") ''Cドライブのドライブ名「C」を表示します MsgBox FSO.GetDrive("C").DriveLetter Set FSO = Nothing End Sub