Laufwerk nicht bereit Eine einfache, aber effektive Lösung, wie man den Fehler beim Auswählen eines Laufwerks abfangen kann, wenn kein Medium eingelegt ist.
Autor:   Z-ene	Bewertung:     [ Jetzt bewerten ]	Views:  12.975
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 35 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.9 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Sie kennen das bestimmt: Der Anwender wählt mit Hilfe der Drivelistbox ein Laufwerk aus, das kein Medium enthält (z.B. Diskette, CD). Und prompt kommt es zu einem Laufzeitfehler.

Es gibt viel Wege für ein Lösung. Nachfolgend eine einfache, aber effektive Variante:

' Laufwerk wechseln
Private Sub Drive1_Change()
  ' Fehlerbehandlung einschalten
  On Error Resume Next
  Dir1.Path = Drive1.Drive
  Drive1.Refresh
  ...
  On Error Goto 0
End Sub

Kurze Erläuterung:
Die Anweisung "On Error Resume Next" sorgt für das Umgehen der Fehlermeldung.
"Drive1.Refresh" setzt die DriveListBox auf das aktuelle Verzeichnis zurück.

Ich arbeite nur mit dieser Lösung.

Wenn Sie möchten, können Sie ggf. auch einen Hinweis anzeigen:

Private Sub Drive1_Change()
  ' Fehlerbehandlung aktivieren
  On Error GoTo ErrHandler
  Dir1.Path = Drive1.Drive
  Drive1.Refresh
  On Error GoTo 0
  Exit Sub
 
ErrHandler:
  If MsgBox("Laufwerk nicht bereit", vbCritical + vbRetryCancel) = vbRetry Then
    ' Wiederholen
    Resume 0
  Else
    ' Abbrechen
    Resume Next
  End If
End Sub