Просматривают:
1 Анонимно
Обработка ошибок |
||
|
|
| # | |
|---|---|---|
Пользователь 2 уровня
 Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
 |
Подскажите кто знает...
Как правильно написать код обработки вот такой вот ошибки? Run-time error '53': File not found
Опубликовано: 2008/3/18 20:27
|
|
|
||
|
|
Re: Обработка ошибок |
| #1 |
|---|---|---|
Титан - модератор
 Присоединился:
2006/4/8 19:42 Сообщений: 152
|
sFileName="d:\sjdhgsjdhg\sdsdsd.jpg"
if dir(sFileName)="" then msgbox "No file" else ActiveLayer.Import sFileName endif либо так: on error resume next err.clear ActiveLayer.Import sFileName if err.number then msgbox "No file" endif
Опубликовано: 2008/3/18 20:36
|
|
|
|
||
|
|
Re: Обработка ошибок |
| #2 |
|---|---|---|
|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
Спасибо, хотел примерно так.:
'Обработка ошибки если нет файла C:\Program Files\.....................................\ControlDataEnd.ini Dim sFileName As String sFileName = "C:\Program Files\.....................................\ControlDataEnd.ini" If Dir(sFileName) <> "C:\Program Files\.....................................\ControlDataEnd.ini" Then MsgBox "Нарушено лицензионное соглашение," & vbCrLf & _ "Вы нарушили закон РФ!!!" & vbCrLf & _ "Ваш IP адрес уже отправлен куда надо......", vbCritical, "Сообщение пользователю " Unload Me Exit Sub End If но строки (sFileName = "C:\Program Files\.....................................\ControlDataEnd.ini" ) не сравнивает  и MsgBox есть всегда. есть файл или нет его, без разницы....
Опубликовано: 2008/3/19 9:59
Edited by GoodvinVV on 19/03/2008 16:58:41
Edited by GoodvinVV on 19/03/2008 17:00:23 Edited by GoodvinVV on 19/03/2008 17:02:06 |
|
|
|
||
|
|
Re: Обработка ошибок |
| #3 |
|---|---|---|
Новичок
 Присоединился:
2008/1/15 10:05 Откуда Челябинск
Сообщений: 20
|
Цитата:
GoodvinVV wrote: Спасибо, хотел примерно так.: Попробуй так: Dim sFileName As String sFileName = "C:\Program Files\.....................................\ControlDataEnd.ini" If Dir(sFileName) <> "ControlDataEnd.ini" Then MsgBox "Нарушено лицензионное соглашение," & vbCrLf & _ "Вы нарушили закон РФ!!!" & vbCrLf & _ "Ваш IP адрес уже отправлен куда надо......", vbCritical, "Сообщение пользователю " Unload Me Exit Sub End If
Опубликовано: 2008/3/20 11:24
|
|
|
|
||
|
|
Re: Обработка ошибок |
| #4 |
|---|---|---|
|
Пользователь 2 уровня
Присоединился:
2008/2/4 10:01 Откуда Москва
Сообщений: 49
|
а вот так ...
Да! Заработало!  спасибо! 
Опубликовано: 2008/3/22 11:50
|
|
|
|
||
