TopPicLogo TopPicText

Путь к Папке и Файлу текущего приложения и Путь к Access (MSACCESS.EXE)

Путь к папке текущего приложения:

    CurrentProject.Path 'Полный путь к папке аппликации (без слеша на конце)

Путь к Файлу текущего приложения:

    CurrentDB.Name 'Полный Путь к аппликации

Путь к файлу в папке текущего приложения:

Private Function PathToINI() As String
'Возвращает путь к файлу INI (Application.ini) внутри папки тек. приложения
'--------------------------------------------------------------------
Const INI_FileName As String = "Application.ini"
    'Путь к  Папке аппликации
    PathToINI = CurrentProject.Path & "\" & INI_FileName 
End Function

Путь к Access (MSACCESS.EXE)

Debug.Print SysCmd(acSysCmdAccessDir) & "msaccess.exe"
Назад ToTop
L.E. 23.07.2015
Рейтинг@Mail.ru