Private Sub Dir1_Change()
  'Verzeichniswechsel an das Dateilistenfeld melden
  File1.[color=red]Path[/color] = Dir1.Path
  Label1.Caption = Dir1.Path & File1.Path
End Sub
 
Private Sub Drive_Change
......
    [color=red]Exit Sub[/color]
E1:
  If Error = "Device unavailable" Then
    MsgBox "Laufwerk nicht verfügbar!", 16, "Fehler"
  Else
    MsgBox "Es ist ein Fehler aufgetreten! Status = " & Err, 16, "Hinweis"
  End If
End Sub