MyTetra Share
Делитесь знаниями!
Путь к Папке и Файлу текущего приложения и Путь к Access (MSACCESS.EXE)
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 12 Папки и Файлы

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

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

sPath = CurrentProject.Path 'Полный путь к папке текущего приложения (без слеша на конце)



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

TempFileName = CurrentProject.Name 'Имя файла (текущего )запущенного приложения



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

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"



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования