Domino 9 und frühere Versionen > Entwicklung

Datei öffnen mit "Open sFile For Input As fileNum"

(1/4) > >>

froehlich2000:
hallo zusammen,

folgendes problem.
ich öffne eine datei mit folgendem befehl

--- Code: ---Open sFile For Input As fileNum

--- Ende Code ---
on error springt das programm zu einer fehlerbehandlung, das programm wartet 1sek und versucht dann die datei wieder mit

--- Code: ---Open sFile For Input As fileNum

--- Ende Code ---
zu öffnen.

es erscheint eine fehlermeldung "unable to open file"

eigentlich sollte das programm aber 30 mal (30sek) versuchen die Datei zu öffnen und danach eine fehlermeldung ausspucken.

kann mit jemand sagen warum beim zweiten versuch die datei zu öffnen eine fehlermeldung kommt?

danke...

animate:
mehr Code!

froehlich2000:
ok:
Fehlerbehandlung:

--- Code: ---fehlerbehandlung:
Do
zahl = zahl+1
Sleep (1)
If zahl = 30 Then
Messagebox "Datei nicht gefunden / Verarbeitung nicht möglich", vbCritical, "BLA"
Exit Sub
End If
Open sFile For Input As fileNum
Loop Until zahl = 30
Resume Next

--- Ende Code ---

animate:
Wenn in der Fehlerbehandlung ein Fehler auftritt, dann wird dieser nicht von der Fehlerbehandlung abgefangen.

froehlich2000:
es funktionier aber auch nicht, wenn ich in der fehlerbehandlung zu einem anderen label springe
und in diesem dann den Open sFile befehl mache.
vor dem label steht dann on error goto fehlerbehandlung.
beim ersten durchlauf funktionier das ja dann auch aber beim 2. nicht mehr.

die fehlerbehandlung sieht dann so aus:

--- Code: ---fehlerbehandlung:
zahl = zahl+1
Sleep (1)
If zahl = 30 Then
Messagebox "Datei nicht gefunden / Verarbeitung nicht möglich", 48, "Bla"
Exit Sub
End If
Goto openfile

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite