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

Написал GoodvinVV в 19/03/2008 9:59:02

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

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