VBA Как получить путь к папке данных приложения "Текущие пользователи"?

В общем случае

Используя VBA, как определить, где находится папка данных текущих пользователей?

В специальных папках FileSystemObjects известно только о 3 папках

  • WindowsFolder
  • SystemFolder
  • TemporaryFolder

В частности, мне нужен макрос Word, чтобы скопировать файл в папку под папкой "Данные приложения".

например. В VB.Net я могу использовать My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData для этого

Ответы

Ответ 1

Вы можете использовать Environ("AppData") для получения этого пути. Environ вытащит любую системную переменную, которая может быть найдена с помощью команды set в командной строке DOS.

Ответ 2

Используя advapi32.dll, вы можете получить USERPROFILE через

Environ("USERPROFILE")

Соедините это с каталогом "Данные приложения" (который имеет стандартное конкретное имя), чтобы получить то, что вы хотите

CStr(Environ("USERPROFILE") & "\Application Data")

Для получения дополнительной информации посетите MSDN