Профессионально выполненная программа всегда имеет внешние файлы, например basic-программы, рисунки *.bmp. Чтобы к ним обеспечить быстрый доступ, напишем функцию, которая будет определять папку, где установлена основная программа. Применяется эта программа для назначения данных глобальной переменной appFolder
Public Function funGetAppFolder() As String
Dim fs
On Error GoTo 999 'Назначаем переход по ошибке
Set fs = CreateObject("Scripting.FileSystemObject") 'Создаем файловую систему
funGetAppFolder = fs.GetFile(CurrentDb.Name).ParentFolder 'Находим папку
Set fs = Nothing 'Уничтожаем переменную
Exit Function 'Выходим из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок
End Function
Ссылки по теме