0

Подскажите пожалуйста, как определить имя файла. Есть файл Access. Нужно при его открытии получить его же собственное имя. В ворде и экселе есть встроенные методы(не работают в аксессе), но в аксессе подобного не нашел. Может ктото сталкивался. Спасибо

1 ответ 1

1

Через объект CurrentProject

Sub ApplicationInformation() 
 'Имя и тип текущего проекта
 Debug.Print Application.CurrentProject.FullName 
 Debug.Print Application.CurrentProject.ProjectType 
 Dim fso as new FileSystemObject
 fileName = fso.GetFileName(Application.CurrentProject.FullName)
End Sub
3
  • Спасибо большое !!! теперь нужно только распарсить)
    – Andrey
    25 ноя 2019 в 8:39
  • Добавил извлечение имени
    – becouse
    25 ноя 2019 в 8:44
  • мне нужна была только эта строчка Application.CurrentProject.FullName . Дальше я просто убрал все лишнее, распарсив строку и выдернул имя файла без расширения. Спасибо за наводку
    – Andrey
    25 ноя 2019 в 10:00

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.