Private Sub Form_Load()
Dim Drive, DriveCount
Dim fso As New FileSystemObject
Set DriveCount = fso.Drives
For Each Drive In DriveCount            'Laufwerke auflisten die auf dem 
' computer verfügbar sind
    List1.AddItem Drive.DriveLetter
Next
End Sub
 
Private Sub List1_Click()
Dim Drive As Drive
Dim fso As New FileSystemObject
 
On Error GoTo ExitSub
Set Drive = fso.GetDrive(List1.Text)
MsgBox Drive.VolumeName
 
ExitSub:
If Err.Number = 71 Then
  MsgBox "Laufwerk nicht bereit oder Datenträger fehlt"
End If
End Sub