@BMF

Помогите, уважаемые форумчане!
Задача: на другом компе OtherComp в папке \MyPath диска с есть файл MyFile.ext (или файлы), которые использует моя программа на VBA (Excel 2003). Предварительно хотелось бы проверить - есть к ним доступ по сети или нет (например, комп выключен). Пишу вроде этого:

Sub Проверка_доступа
Dim FullFNm as String
On Error GoTo M1
FullFNm="\\OtherComp\c\MyPath\MyFile.ext
If Dir(FullFNm)<>"" then MsgBox "Есть доступ"
Exit Sub
M1:
MsgBox "Нет доступа"
Resume Next
End Sub

Если реально доступ есть - все работает. Но если доступа нет - вместо обработки ошибки после 5-10 сек какой-то работы программа вылетает с сообщением "Run-Time Error 52 - Bad File Name or Number".
Почему же не срабатывает программный обработчик ошибок? Что здесь неправильно?

0

@KoGG

Надо убрать "Resume Next"

1