スキルアップ・問題解決なら、モーグにおまかせ！

次のサンプルは、Driveオブジェクトを使ってドライブのプロパティにアクセスして、空き容量をメッセージボックスに表示しています。
サンプルでアクセスしているドライブはＣドライブです。

Sub Sample()
    Dim fs, d, s, drvPath
    
    drvPath = "C:\"
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    
    s = "ドライブ " & UCase(drvPath) & " - "
    s = s & d.VolumeName & vbCrLf
    s = s & "空き容量: " & FormatNumber(d.FreeSpace / 1024, 0)
    s = s & " Kbytes"
    MsgBox s
        
End Sub