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 'Очищаем поток от ошибок

Содержание раздела

---

---