Dim oFSO As New FileSystemObject
 
Private Sub Drive1_Change()
Dim oDrive As Drive
Set oDrive = oFSO.GetDrive(Mid(Drive1, 1, 2))
 
If oDrive.IsReady Then
  Dim nSize As Currency
 
  nSize = oDrive.TotalSize
  MsgBox "Laufwerk " & oDrive & "\ hat eine Kapazität von " & FormatNumber( _
    nSize / 1024 / 1024, 2) & " MB"
Else
  MsgBox "Laufwerk nicht bereit!"
End If
End Sub