VBA 如何获取当前用户应用程序数据文件夹的路径？

Question

一般来说，

使用 VBA，如何确定当前用户应用程序数据文件夹的位置？

FileSystemObjects 特殊文件夹只知道大约 3 个文件夹

• Windows文件夹
• 系统文件夹
• 临时文件夹

具体来说，我需要一个Word宏来将文件复制到Application Data文件夹下的a文件夹中。

例如在 VB.Net 中我可以使用

My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData

来做到这一点

Answer 1

您可以使用

Environ("AppData")

来获取此路径。 Environ 将拉取任何系统变量，可以通过在 DOS 提示符下使用

set

命令找到该变量。

Answer 2

使用

advapi32.dll

，您可以通过

获得

USERPROFILE

Environ("USERPROFILE")

将其与“应用程序数据”目录（具有标准的特定名称）连接以获得您想要的内容

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

有关更多信息，请查看 MSDN

Answer 3

使用它仅返回登录的特定用户的名称。

MsgBox 左（替换（环境（“APPDATA”），左（环境（“APPDATA”），InStr（1，环境（“APPDATA”），“用户”）+ 5），“”），InStr（1，替换(Environ("APPDATA"), Left(Environ("APPDATA"), InStr(1, Environ("APPDATA"), "用户") + 5), ""), "") - 1), vbOKOnly