Probleme mit "On Error Goto"
19.08.2005 13:07:30
klamsi
Ich hab ein kleines Problem.
Ich möchte eine Datei öffnen.
Es kann vorkommen das diese nicht vorhanden ist.
Drum schreib ich davor eine "On Error Goto" Anweisung hin.
Klappt auch wunderbar...
Er springt zu meinem angegeben "Goto-Punkt" und führt dort weiter die Anweisungen aus.
Aber in meinem "Error-Anweisungsblock" kann es auch zu fehlern kommen.
Die möchte ich nun auch mit einer "Error-Error-Anweisung" *gg* bereinigen.
Aber ich kann irgendwie nicht zwei mal "ON Error Goto" benutzen.
Beim zweiten error führt er nicht die "Error-Error-Anweisung" aus.
Was mach ich falsch?
Hier die Syntax:
On Error GoTo StartAgain
Open "C:\File.txt" For Input As #1
Input #1, x
If x= "y" then Anweisung
If 1 = 2 then
StartAgain:
On error Goto EndThisCrap
Open "C:\File2.txt" For Input As #2
Input #2, y
If y= "z" then Anweisung2
End If
If 1 = 3 then
EndThisCrap:
End
End If
Was mach ich falsch?
Bzw. wie kann ich es besser lösen?
Vielleicht könnt ihr mir ja da a bissl weiter Helfen ^^
Thx,
Klamsi
Anzeige