Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Перехват ошибок?????

1.8K
22 июля 2004 года
binaryshadow
36 / / 02.12.2002
Как перехватить ошибку при открытии файла?
Если файла не существует, то следует сделать что-нибудь другое.
258
22 июля 2004 года
SergeySV
1.5K / / 19.03.2003
Цитата:
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_

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог