Bei nicht angeschlossenem USB-Device Subs nicht ausführen ?

Question

Hoi FreuNde,

ich habe bei einer Software eine Option USB-Gerät TRUE oder FALSE die in einer .ini-Datei geschrieben steht.

Wenn dieses USB-Gerät nicht angeschlossen ist kommt immer ein Fehler, da die entsprechenden Subs automatisch darauf zugreifen wollen.

Wie kann ich diese Subs NICHT ausführen bzw. überspringen wenn das USB-Gerät NICHT angeschlossen ist bzw. nicht existiert ?

Habe schon viele Sachen ausprobiert, aber immer kommt irgendeine eine Fehlermeldung - z.B. wenn ich die ganzen Subs die darauf zugreifen in eine weitere SUB packen will und diese überspringen will wenn die entsprechende Zeile in der .ini FALSE ist.

Hat da jemand eine Lösung ?

Doei
Trixi-N

Answer 1

Ich würde eine einfache If-Abfrage machen, ob der Eintrag in der ini Wahr ist und die Sub für den USB-Zugriff in einen Try-Catch Block schreiben:

dim usb as boolean 'True/False aus der ini-Datei

If usb Then

Try

'USB zugriff

Catch ex as Exception

'USB Stick ist nicht vorhanden, oder anderer Fehler trat auf.

MsgBox(ex.Message) 'Fehlermeldung ausgeben

End Try

Else

'Die USB-Einstellung ist "Falsch" in der ini-Datei

End If

Answer 2

Hallo Agnag,

muchas gracias - so einfach; man sollte halt nicht immer um 1000 Ecken denken ;-)

Danke nochmals.

Doei
Trixi