Error beim drive ändern

[hugamann]

Private Sub Drive1_Change(Index As Integer)

On Error Resume Next
If (Dir1(Index).Path = Drive1(Index).Drive) <> Error(68) Then
Dir1(Index).Path = Drive1(Index).Drive
End If
End Sub

wenn ich auf das laufwerk a: gehe dann wirft er mich mit nem error hier

Dir1(Index).Path = Drive1(Index).Drive

raus


wie kann ich das ändern ?

 

[Johannes Postler]

Ich nehme mal an es ist keine Diskette im Laufwerk. Dann musst du nämlich die Fehlermeldung abfangen und eine Meldung ausgeben, dass keine Diskette im Laufwerk ist.

 

[spirit]

hallo

Benutze doch einfach die ONERROR GOTO Anweisung und gebe eine Meldung aus z.B.
MSGBOX"Laufwerk nicht bereit!"

 

[hugamann]

Private Sub Drive1_Change(Index As Integer)

On Error Resume Next
Dir1(Index).Path = Drive1(Index).Drive
End Sub

selbst so beendet er das immer.
Als ob er das on Error nicht beachtet.

Weiß jemand warum bzw. wie ich das ändern kann ?

 

[Shakie]

Das liegt daran dass du dein VB so eingestellt hast, dass es jeden Fehler anzeigen soll! Geh auf "Extras" --> "Optionen" --> Registrierkarte "Allgemein" --> Unterbrechen bei Fehlern: Bei nicht verarbeiteten Fehlern anklicken.

 

[hugamann]

Super. Vielen dank