Перехват ошибок?????
Если файла не существует, то следует сделать что-нибудь другое.
Цитата:
Originally posted by binaryshadow
Как перехватить ошибку при открытии файла?
Если файла не существует, то следует сделать что-нибудь другое.
Как перехватить ошибку при открытии файла?
Если файла не существует, то следует сделать что-нибудь другое.
Обычно наличие файл проверяют так:
sPathFile = "С:\1.txt"
If Len(Dir(sPathFile))=0 Then
' файла НЕТ
Else
' файл существует
End If
Но конечно, как и любую другую ошибку, можно ее перехватить используя конструкцию
On Error GoTo Er_
......
код с возможной ошибкой
.......
Ex_:
... тут пише код который должен работать на финише всегда
... обычно всякие: Set rst=Nothing
Exit Sub
Er_:
.. вот сюда попадешь когда в коде возникнет ошибка
MsgBox Err.Description ' показать описание возник. ошибки
Resume Ex_