Тема: Обработка ошибок

Обработка ошибок

18/03/2008 20:27:04 #Link

GoodvinVV

Подскажите кто знает...
Как правильно написать код обработки вот такой вот ошибки?

Run-time error '53':
File not found

Re: Обработка ошибок

18/03/2008 20:36:17 #Link

wOxxOm

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

Re: Обработка ошибок

19/03/2008 9:59:02 #Link

GoodvinVV

Спасибо, хотел примерно так.:

'Обработка ошибки если нет файла 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 есть всегда. есть файл или нет его, без разницы....

Re: Обработка ошибок

20/03/2008 11:24:44 #Link

magnus_z

Цитата:

GoodvinVV wrote: Спасибо, хотел примерно так.:

'Обработка ошибки если нет файла 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 есть всегда. есть файл или нет его, без разницы....

Попробуй так:

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

Re: Обработка ошибок

22/03/2008 11:50:35 #Link

GoodvinVV

а вот так ...
Да! Заработало!

спасибо!

Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=7336&start=0