Папка приложения

Профессионально выполненная программа всегда имеет внешние файлы, например 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


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=9819