Dim fs, platte
Set fs = CreateObject("Scripting.FileSystemObject")
Set platte = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName("C")))
MsgBox "Kapazität von " & platte.DriveLetter & " : " & FormatNumber( _
  platte.TotalSize / 1024 / 1024, 0) & " MB"