Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" ( _
  ByVal nDrive As String) As Long
Private Sub Command1_Click() 
For mal = 97 To 122 'es werden alle Festplatten bzw. CD-Roms des Computers nach 
' der Datei durchsucht
  driveletter = UCase(Chr(mal) + ":\")
  If GetDriveType(driveletter) = 5 Then
   On Error GoTo fehler
   List1.additem driveletter+":\"
  End If
Next
exit sub 
fehler:
Resume Next
end sub