VBA Wie erhalte ich den Pfad zum Datenordner der Anwendung "Current Users"?

Question

Generell,

Wie kann ich mit VBA feststellen, wo sich der Anwendungsdatenordner des aktuellen Benutzers befindet?

Die FileSystemObjects-Spezialordner kennen nur 3 Verzeichnisse

• WindowsFolder
• SystemFolder
• TemporaryFolder

Konkret benötige ich ein Word-Makro, um eine Datei in einen Ordner unter dem Anwendungsdatenordner zu kopieren.

In VB.Net kann ich z.B. verwenden My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData um dies zu tun

Answer 1

Sie können verwenden Environ("AppData") um diesen Pfad zu erhalten. Environ zieht jede Systemvariable heran, die mit dem Befehl set Befehl an der DOS-Eingabeaufforderung.

Answer 2

Verwendung von advapi32.dll können Sie die USERPROFILE über

Environ("USERPROFILE")

Verbinden Sie dies mit dem Verzeichnis "Anwendungsdaten" (das einen standardmäßigen, spezifischen Namen hat), um das Gewünschte zu erhalten

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

Weitere Informationen finden Sie unter MSDN