Написал magnus_z в 20/03/2008 11:24:44
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 есть всегда. есть файл или нет его, без разницы....
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?post_id=82663