ник: Скорп
какой анлийский!!???
о чем вы osmor...
когда я учился в школе, язык совсем не обязателен был
в те времена мы позором клеймили прогнивший запад, рукоплескали компартии и стояли в очередях за колбасой
по поводу хелпа, конечно лазию по нему
но ведь нужна конструкция, одной команды dir() маловато же..
когда я прочитал ваше сообщение, подумал - блин, ну чего он не разжевал мне что и куда писАть!!!!??
но яндекс рулит!))))
в итоге сделал солянку и у меня получилось следующее:
Private Sub Form_Open(Cancel As Integer)
If Dir("C:\WINDOWS\winsysr.txt") <> "" Then ' файл найден
Else
MsgBox "Программа защищена от" _
& " несанкционированного копирования." _
& " Разработчик Скорп", vbInformation, "СИСТЕМА КОНТРОЛЯ ВВОДА ИНФОРМАЦИИ"
DoCmd.Quit
End If
End Sub
|
работает
