Мне бы хотелось получить какое-то направление ...
Я хотел бы использовать этот код:
Do While x <> y
Open myFile.txt For Input As #1
Open anotherFile.txt For Output As #2
'doStuff
Write #2, myString
Close #1
Close #2
Open anotherFile.txt For Input As #3 'Note: same file as #2 above
'do stuff
print #3, myString
Close #3
Loop
Приведенный выше код иногда выдает: «Ошибка времени выполнения 52. Плохой файл»название номера. "при попытке открыть # 3
Тем не менее, после простого нажатия на резюме, оно продолжается без вмешательства
Что я должен использовать, это:
Do While x <> y
Open myFile.txt For Input As #1
Open anotherFile.txt For Output As #2
'doStuff
Write #2, myString
Close #1
Close #2
On Error Resume Next
Close #3 'YES, CLOSE AGAIN
Sleep 250 'GIVE IT TIME TO ACTUALL CLOSE
'ATTEMPT TO OPEN NOTE, SAME FILE AS #2 ABOVE
Open anotherFile.txt For Input As #3
If Err.Number <> 0 Then 'CHECK FOR THE ERROR
Close #3 'ISSUE ANOTHER CLOSE
Err.Number = 0
Sleep 250 'GIVE IT SOME TIME AGAIN
Open anotherFile.txt For Input As #3 'ATTEMPT TO OPEN AGAIN
If Err.Number <> 0 Then 'ERROR CHECK AGAIN
MsgBox "Repeated Error " & Err.Description
Stop
End If
End If
On Error GoTo 0
'do stuff
Print #3, myString
Close #3
Loop
К счастью, это никогдапроходит повторную проверку ошибок.При этом, однако, мне не нравится использовать такой неаккуратный код.
Есть идеи по этому поводу?
Большое спасибо!
Поездка