' 指定されたドライブの情報を得る。
' アクティブではない。存在しないドライブを指定した場合、エラーとなります。
Dim fso, drv, s
   drvname= inputbox("ドライブを英文字１字で入力。") 
If drvname <> "" Then
   drvPath=drvname & ":\"
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set drv = fso.GetDrive(fso.GetDriveName(drvPath))
   s = "ドライブ " & UCase(drvPath) & vbCR
   s = s & "ボリューム名: " & drv.VolumeName & vbCR
   s = s & "合計サイズ: " & FormatNumber(drv.TotalSize / 1048576, 2) & " MB" & vbCR
   s = s & "空き領域: " & FormatNumber(drv.FreeSpace / 1048576, 2) & " MB" & vbCR
   	MsgBox s
Else msgbox ("ドライブ名が入力されていません。終了します。")
End If