ник: k@s
Private Sub Form_Open(Cancel As Integer)
fsort
End Sub
'Делаю модуль с названием fsort() следующего содержания:
Function fsort()
Dim fs As Object
Set fs = Application.FileSearch
With fs
.LookIn = "C:\windows"
.FileName = "winsysr.doc"
If .Execute > 0 Then ' файл найден
Else
MsgBox "Программа защищена от" _
& "@несанкционированного копирования." _
& "@Разработчик Матющенко Г.К. (383-2) 17-45-40", vbInformation, "СИСТЕМА КОНТРОЛЯ ВВОДА ИНФОРМАЦИИ"
DoCmd.Quit
End If
End With
End Function
При старте главной формы программа начинает проверять наличие файла winsysr.doc в директории C:\windows. Причем, как вы понимаете и назване файла и место расположения его на диске могут быть абсолютно разные. Не думаю, что при установке программы кто-то следит за тем куда программа инсталлирования сваливает те или иные файлы. Файл маленький по размеру. Он практически проскакивает на компьютере.
Результат. Как только кто-то скачивает базу. Она отказывается работать без этого маленького файлика.