Access 2000 - курс лекций




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


 

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

 









Начало    Назад    Вперед






Книжный магазин