Rubrik: Dateisystem · Laufwerke | VB-Versionen: VB4, VB5, VB6 | 24.12.03 |
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: | Views: 12.548 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
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