{"id":55001031,"date":"2016-04-01T00:00:00","date_gmt":"2020-05-22T19:02:12","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1031"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Standardverzeichnisse_per_VBA_ermitteln","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/","title":{"rendered":"Standardverzeichnisse per VBA ermitteln"},"content":{"rendered":"

\"\"<\/p>\n

Es gibt eine ganze Reihe von Verzeichnissen, die es auf jedem Rechner gibt. Manche davon sollten eigentlich immer gleich lauten, aber durch die Installation von Windows oder Software auf Laufwerken mit anderen Laufwerkbuchstaben als C: gibt es hier gelegentlich Unterschiede. In manchen Fällen sorgt auch die Betriebssystemversion für Unterschiede, beispielsweise bei 32bit- gegenüber 64bit-Systemen. Und ganz sicher unterscheiden sich die Verzeichnisse, die dem jeweiligen Benutzer gehören. Dennoch wollen Sie früher oder später einmal dynamisch auf ein bestimmtes Verzeichnis zugreifen wie etwa das Verzeichnis der eigenen Dateien eines Benutzers oder das Add-In-Verzeichnis von Access. Dieser Beitrag zeigt, wie Sie solche Verzeichnisse ermitteln.<\/b><\/p>\n

Verzeichnisse, Dateinamen und Pfade<\/h2>\n

Vorab eine kleine Begriffsklärung: Wir sprechen nachfolgend von Verzeichnis, wenn es sich um einen Ort handelt, an dem man Dateien speichern kann:<\/p>\n

c:\\Verzeichnis<\/pre>\n
Ein Dateiname ist der reine Dateiname ohne Verzeichnis:<\/p>\n
Beispieldatenbank.mdb<\/pre>\n
Der Pfad fasst Verzeichnis und Dateiname zusammen, wobei beide noch durch das Backslash-Zeichen voneinander getrennt werden:<\/p>\n
c:\\Verzeichnis\\Beispieldatenbank.mdb<\/pre>\n
Verzeichnis der aktuellen Datenbankdatei<\/h2>\n
Die aktuelle Datenbank wollen Sie zum Beispiel ermitteln, wenn Sie auf Dateien zugreifen wollen, die Sie im Kontext der aktuellen Datenbankanwendung direkt im gleichen oder in einem untergeordneten Verzeichnis der Datenbank gespeichert haben. Früher, als es noch kein CurrentProject<\/b>-Objekt gab, hat man das Verzeichnis einer Datenbank über den Umweg der Eigenschaft Name <\/b>des Objekts CurrentDb <\/b>ermittelt. CurrentDb.Name<\/b> lieferte den kompletten Pfad, also beispielsweise den folgenden Ausdruck:<\/p>\n
c:\\Verzeichnis\\Beispieldatenbank.mdb<\/pre>\n
Den Dateinamen konnte man mithilfe der Funktion Dir <\/b>ermitteln, die lediglich den Namen einer Datei bei Angabe des kompletten Pfades zurücklieferte:<\/p>\n
  Dir(\"c:\\Verzeichnis\\Beispieldatenbank.mdb\")\r\n   Beispieldatenbank.mdb<\/pre>\n
Davon ausgehend, dass der Dateiname nicht als Teil eines der Verzeichnisse verwendet wurde, die den Speicherort der Datei festlegten, ließ sich so durch geschickten Einsatz von Zeichenkettenfunktionen auch das Verzeichnis extrahieren:<\/p>\n
Left<\/span>(CurrentDb.Name, Len<\/span>(CurrentDb.Name) - Len<\/span>(Dir(CurrentDb.Name)))<\/pre>\n
Dies ermittelte im letzten Teil zunächst die Länge des Dateinamens. Dann wird die Länge des Verzeichnisses ohne Dateiname ermittelt. Das Ergebnis dient als zweiter Parameter der Left<\/b>-Funktion, die nur die dadurch angegebene Anzahl Zeichen des im ersten Parameter übergebenen Ausdrucks zurückgibt.<\/p>\n
Ab Access 2000 änderte sich dies zum Glück: Das CurrentProject<\/b>-Objekt wurde eingeführt und lieferte einige Eigenschaften, mit denen sich Dateiname, Verzeichnis und Pfad separat ermitteln ließen – nämlich Name<\/b>, Path <\/b>und FullName<\/b>:<\/p>\n
  CurrentProject.Name\r\n   StandardverzeichnissePerVBA.accdb\r\n  CurrentProject.Path\r\n   C:\\...\\StandardverzeichnissePerVBA\r\n  CurrentProject.FullName\r\n   C:\\...\\StandardverzeichnissePerVBA\\ StandardverzeichnissePerVBA.accdb<\/pre>\n
Verzeichnis der Datei MSAccess.exe<\/h2>\n
Das Verzeichnis der ausführbaren Datei MSAccess.exe<\/b>, mit der die aktuell geöffnete Datenbankdatei gestartet wurde, finden Sie mit dem folgenden Ausdruck – hier etwa für die 32bit-Version unter Office 15:<\/p>\n
  SysCmd(acSysCmdAccessDir)\r\n   C:\\Program Files (x86)\\Microsoft Office\\Office15\\<\/pre>\n
Verzeichnis einer Add-In-Datenbank<\/h2>\n
Wenn Sie ein Add-In nutzen und innerhalb des Add-Ins auf die aktuell geöffnete Datenbank zugreifen möchten, gelingt dies mit den weiter oben vorgestellten Eigenschaften CurrentDb.Name <\/b>beziehungsweise CurrentProject.Path<\/b>, CurrentProject.Name <\/b>und CurrentProject.FullName<\/b>. Aber was, wenn Sie auf die Add-In-Datenbank zugreifen wollen – beispielsweise, um ihren Datenbankpfad zu ermitteln und in diesem Verzeichnis Dateien zu speichern<\/p>\n
Dann nutzen Sie statt der Objekte CurrentDb <\/b>und CurrentProject <\/b>einfach analog CodeDb <\/b>und CodeProject<\/b>. Wenn Sie die Add-In-Datenbank direkt unter Access öffnen (und nicht über das Add-In-Menü), sind die Objekte CurrentDb <\/b>und CodeDb <\/b>beziehungsweise CurrentProject <\/b>und CodeProject <\/b>identisch.<\/p>\n
Weitere Verzeichnisse per API ermitteln<\/h2>\n
Die API-Funktion SHGetKnownFolderPath <\/b>ermöglicht es, eine ganze Reihe von Verzeichnissen zu ermitteln. Dabei übergeben Sie dieser lediglich verschiedene Werte, die dem jeweiligen Verzeichnis entsprechen. Die API-Funktion deklarieren Sie wie folgt in einem Standardmodul:<\/p>\n
Private <\/span>Declare Function SHGetKnownFolderPath Lib \"shell32\" (rfid As <\/span>Any, ByVal dwFlags As Long<\/span>, ByVal hToken As Long<\/span>, ppszPath As Long<\/span>) As Long<\/span><\/pre>\n
Wir benötigen aber noch weitere API-Deklarationen:<\/p>\n
Private <\/span>Declare Function CLSIDFromString Lib \"ole32\" (ByVal lpszGuid As Long<\/span>, pGuid As <\/span>Any) As Long<\/span>\r\nPrivate <\/span>Declare Sub CopyMemory Lib \"kernel32\" Alias \"RtlMoveMemory\" (pDest As <\/span>Any, pSrc As <\/span>Any, ByVal ByteLen As Long<\/span>)\r\nPrivate <\/span>Declare Sub CoTaskMemFree Lib \"ole32\" (ByVal hMem As Long<\/span>)\r\nPrivate <\/span>Declare Function lstrlenW Lib \"kernel32\" (ByVal ptr As Long<\/span>) As Long<\/span><\/pre>\n
<\/p>\n
Außerdem verwendet die nachfolgend beschriebene Funktion ein Type<\/b>-Element namens GUID <\/b>zum Speichern der einzelnen Elemente einer GUID:<\/p>\n
Private <\/span>Type GUID\r\n    Data1 As Long<\/span>\r\n    Data2 As Integer<\/span>\r\n    Data3 As Integer<\/span>\r\n    Data4(7) As Byte<\/span>\r\nEnd Type<\/pre>\n
Damit wir die Kennung des gesuchten Verzeichnisses, das beispielsweise {D20BEEC4-5CA8-4905-AE3B-BF251EA09B53} <\/b>lautet, nicht auf diese Weise eingeben müssen, sondern dies einfacher erledigen können, haben wir eine Enumeration mit je einem Element pro möglichem Verzeichnis erstellt. Diese sieht wie in Listing 1 aus.<\/p>\n
Public <\/span>Enum FolderID\r\n     FOLDERID_NetworkFolder\r\n     FOLDERID_ComputerFolder\r\n     FOLDERID_InternetFolder\r\n     FOLDERID_ControlPanelFolder\r\n     FOLDERID_PrintersFolder\r\n     FOLDERID_SyncManagerFolder\r\n     FOLDERID_SyncSetupFolder\r\n     FOLDERID_ConflictFolder\r\n     FOLDERID_SyncResultsFolder\r\n     FOLDERID_RecycleBinFolder\r\n     FOLDERID_ConnectionsFolder\r\n     FOLDERID_Fonts\r\n     FOLDERID_Desktop\r\n     FOLDERID_Startup\r\n     FOLDERID_Programs\r\n     FOLDERID_StartMenu\r\n     FOLDERID_Recent\r\n     FOLDERID_SendTo\r\n     FOLDERID_Documents\r\n     FOLDERID_Favorites\r\n     FOLDERID_NetHood\r\n     FOLDERID_PrintHood\r\n     FOLDERID_Templates\r\n     FOLDERID_CommonStartup\r\n     FOLDERID_CommonPrograms\r\n     FOLDERID_CommonStartMenu\r\n     FOLDERID_PublicDesktop\r\n     FOLDERID_ProgramData\r\n     FOLDERID_CommonTemplates\r\n     FOLDERID_PublicDocuments\r\n     FOLDERID_RoamingAppData\r\n     FOLDERID_LocalAppData\r\n     FOLDERID_LocalAppDataLow\r\n     FOLDERID_InternetCache\r\n     FOLDERID_Cookies\r\n     FOLDERID_History\r\n     FOLDERID_System\r\n     FOLDERID_SystemX86\r\n     FOLDERID_Windows\r\n     FOLDERID_Profile\r\n     FOLDERID_Pictures\r\n     FOLDERID_ProgramFilesX86\r\n     FOLDERID_ProgramFilesCommonX86\r\n     FOLDERID_ProgramFilesX64\r\n     ...<\/pre>\n
Listing 1: Auflistung der Konstanten für die Ordner<\/span><\/b><\/p>\n
Leider kann man den Elementen einer solchen Enumeration (Fortsetzung in Listing 2) nur Zahlenwerte zuweisen, aber keine Zeichenketten. Deshalb benötigen wir eine Hilfsfunktion, welche die GUID zu der jeweiligen Konstanten liefert. Diese Funktion heißt GetFolderType <\/b>und Sie finden sie in gekürzter Form in Listing 3. Die Funktion besitzt eine Select Case<\/b>-Bedingung, die für jedes Element der Enumeration einen Case<\/b>-Zweig bereithält. Dieser füllt jeweils die Variable GetFolderType <\/b>und somit den Rückgabewert der Funktion mit der entsprechenden GUID-Zeichenkette. Der Aufruf dieser Funktion sieht beispielsweise so aus:<\/p>\n
Public Function <\/span>GetFolderType(eFolderID As <\/span>FolderID) As String<\/span>\r\n     Select Case eFolderID\r\n         Case <\/span>FOLDERID_NetworkFolder\r\n             GetFolderType = \"{D20BEEC4-5CA8-4905-AE3B-BF251EA09B53}\"\r\n         Case <\/span>FOLDERID_ComputerFolder\r\n             GetFolderType = \"{0AC0837C-BBF8-452A-850D-79D08E667CA7}\"\r\n         Case <\/span>FOLDERID_InternetFolder\r\n             GetFolderType = \"{4D9F7874-4E0C-4904-967B-40B0D20C3E4B}\"\r\n         Case <\/span>FOLDERID_ControlPanelFolder\r\n             GetFolderType = \"{82A74AEB-AEB4-465C-A014-D097EE346D63}\"\r\n         Case <\/span>FOLDERID_PrintersFolder\r\n             GetFolderType = \"{76FC4E2D-D6AD-4519-A663-37BD56068185}\"\r\n         ...\r\n     End Select<\/span>\r\nEnd Function<\/span><\/pre>\n
Listing 2: Funktion zur Ermittlung der GUID für eine Konstante<\/span><\/b><\/p>\n
  GetFolderType(FOLDERID_CommonPrograms)\r\n{0139D44E-6AFE-49F2-8690-3DAFCAE6FFB8}<\/pre>\n
Das Schöne dabei ist, dass durch die Enumeration als Eingangsparameter alle Elemente der Enumeration per IntelliSense angeboten werden (s. Bild 1).<\/p>\n
\"Zugriff<\/p>\n
Bild 1: Zugriff auf die Konstanten per IntelliSense<\/span><\/b><\/p>\n
Damit kommen wir nun zu der eigentlichen Funktion namens GetSpecialFolder <\/b>(s. Listing 4). Diese nimmt ebenfalls als Parameter einen Wert des Typs der Enumeration entgegen, also können Sie auch hier bequem IntelliSense nutzen, um die Konstante für das gesuchte Verzeichnis zu ermitteln. Der Aufruf der Funktion lautet also beispielsweise wie folgt:<\/p>\n
Private Function <\/span>GetSpecialFolder(eFolderID As <\/span>FolderID) As String<\/span>\r\n     Dim <\/span>lngPointerPath As Long<\/span>\r\n     Dim <\/span>tGuid As <\/span>GUID\r\n     Dim <\/span>strGUID As String<\/span>\r\n     Dim <\/span>bytTmp() As Byte<\/span>\r\n     Dim <\/span>lngTmplen As Long<\/span>\r\n     strGUID = GetFolderType(eFolderID)\r\n     If <\/span>CLSIDFromString(StrPtr(strGUID), tGuid) = 0 Then<\/span>\r\n         If <\/span>SHGetKnownFolderPath(tGuid, 0, 0, lngPointerPath) = 0 Then<\/span>\r\n             If <\/span>lngPointerPath <> 0 Then<\/span>\r\n                lngTmplen = lstrlenW(lngPointerPath) * 2\r\n                If <\/span>lngTmplen <> 0 Then<\/span>\r\n                   ReDim bytTmp(0 To (lngTmplen - 1)) As Byte<\/span>\r\n                   CopyMemory bytTmp(0), ByVal lngPointerPath, lngTmplen\r\n                   GetSpecialFolder = bytTmp\r\n               End If<\/span>\r\n             End If<\/span>\r\n             Call<\/span> CoTaskMemFree(lngPointerPath)\r\n         End If<\/span>\r\n     End If<\/span>\r\nEnd Function<\/span><\/pre>\n
Listing 4: Funktion zum Ermitteln von speziellen Verzeichnissen<\/span><\/b><\/p>\n
Public Sub <\/span>Test_GetSpecialFolder()\r\n     Debug.Print<\/span> GetSpecialFolder(FOLDERID_Desktop)\r\nEnd Sub<\/span><\/pre>\n
Die Funktion ermittelt zunächst mithilfe der Funktion GetFolderType <\/b>die GUID für die übergebene Konstante der Enumeration FolderID<\/b>. Dann verwendet sie die API-Funktion CLSIDFromString<\/b>, um die Struktur tGuid <\/b>mit den Informationen der GUID aus strGUID <\/b>zu füllen. Dies ist die Form, in der wir die GUID gleich der API-Funktion SHGetKnownFolderPath <\/b>übergeben.<\/p>\n
Diese erwartet neben der GUID für das gesuchte Verzeichnis auch noch einen Rückgabeparameter des Typs Long <\/b>namens lngPointerPath<\/b> und füllt diesen im Erfolgsfall mit einem Zeiger auf die Speicheradresse, die den Namen des Verzeichnisses enthält.Ist dieser Wert ungleich 0<\/b>, liest die Funktion das Verzeichnis über ein paar Zwischenschritte von der angegebenen Speicheradresse in die Rückgabevariable GetSpecialFolder <\/b>der gleichnamigen Funktion ein.<\/p>\n
Listing 5 enthält eine Prozedur, die alle speziellen Ordner ausgibt, für die die Enumeration Konstanten bereithält. Dies sind laut der Webseite unter https:\/\/msdn.microsoft.com\/de-de\/library\/windows\/desktop\/dd378457(v=vs.85).aspx <\/b>alle zur Drucklegung verfügbaren Konstanten.<\/p>\n
Public Sub <\/span>AlleVerzeichnisseAusgeben()\r\n     Debug.Print<\/span> \"FOLDERID_Fonts                 \", GetSpecialFolder(FOLDERID_Fonts)\r\n     Debug.Print<\/span> \"FOLDERID_Desktop               \", GetSpecialFolder(FOLDERID_Desktop)\r\n     Debug.Print<\/span> \"FOLDERID_Startup               \", GetSpecialFolder(FOLDERID_Startup)\r\n     Debug.Print<\/span> \"FOLDERID_Programs              \", GetSpecialFolder(FOLDERID_Programs)\r\n     ...\r\nEnd Sub<\/span><\/pre>\n
Listing 5: Ausgeben aller speziellen Verzeichnisse<\/span><\/b><\/p>\n
Mit diesen Verzeichnissen lassen sich auch noch weitere spezielle Verzeichnisse abrufen – beispielsweise könnte es einmal interessant sein, auf das Add-Ins-Verzeichnis von Access zuzugreifen. Dieses finden Sie als Unterverzeichnis des Verzeichnisses, das Sie mit folgendem Aufruf erhalten:<\/p>\n
  GetSpecialFolder(FOLDERID_RoamingAppData)\r\nC:\\Users\\<Username>\\AppData\\Roaming<\/pre>\n
Hier müssen Sie nun nur noch \\Microsoft\\AddIns <\/b>anhängen, um das Add-Ins-Verzeichnis zu erhalten:<\/p>\n
C:\\Users\\<Username>\\AppData\\Roaming\\Microsoft\\AddIns<\/pre>\n
Zusammenfassung und Ausblick<\/h2>\n
In diesem Beitrag haben Sie erfahren, wie Sie einige für Access wichtige Verzeichnisse über die Access-eigenen Funktionen ermitteln und wie Sie über die API an weitere Verzeichnisse gelangen.<\/p>\n
Es gibt sicher noch weitere Verzeichnisse, die irgendwann einmal interessant sein können. Mit den hier vorgestellten Möglichkeiten sollten Sie jedoch recht weit kommen.<\/p>\n
Downloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
StandardverzeichnissePerVBA.accdb<\/p>\n
Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
Es gibt eine ganze Reihe von Verzeichnissen, die es auf jedem Rechner gibt. Manche davon sollten eigentlich immer gleich lauten, aber durch die Installation von Windows oder Software auf Laufwerken mit anderen Laufwerkbuchstaben als C: gibt es hier gelegentlich Unterschiede. In manchen Fällen sorgt auch die Betriebssystemversion für Unterschiede, beispielsweise bei 32bit- gegenüber 64bit-Systemen. Und ganz sicher unterscheiden sich die Verzeichnisse, die dem jeweiligen Benutzer gehören. Dennoch wollen Sie früher oder später einmal dynamisch auf ein bestimmtes Verzeichnis zugreifen wie etwa das Verzeichnis der eigenen Dateien eines Benutzers oder das Add-In-Verzeichnis von Access. Dieser Beitrag zeigt, wie Sie solche Verzeichnisse ermitteln.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[66022016,662016,44000025],"tags":[],"class_list":["post-55001031","post","type-post","status-publish","format-standard","hentry","category-66022016","category-662016","category-VBA_und_Programmiertechniken"],"yoast_head":"\nStandardverzeichnisse per VBA ermitteln - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Standardverzeichnisse per VBA ermitteln\" \/>\n<meta property=\"og:description\" content=\"Es gibt eine ganze Reihe von Verzeichnissen, die es auf jedem Rechner gibt. Manche davon sollten eigentlich immer gleich lauten, aber durch die Installation von Windows oder Software auf Laufwerken mit anderen Laufwerkbuchstaben als C: gibt es hier gelegentlich Unterschiede. In manchen Fällen sorgt auch die Betriebssystemversion für Unterschiede, beispielsweise bei 32bit- gegenüber 64bit-Systemen. Und ganz sicher unterscheiden sich die Verzeichnisse, die dem jeweiligen Benutzer gehören. Dennoch wollen Sie früher oder später einmal dynamisch auf ein bestimmtes Verzeichnis zugreifen wie etwa das Verzeichnis der eigenen Dateien eines Benutzers oder das Add-In-Verzeichnis von Access. Dieser Beitrag zeigt, wie Sie solche Verzeichnisse ermitteln.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-22T19:02:12+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg09.met.vgwort.de\/na\/bd3368116d3f45f987c1d9a074d7ccf9\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"8\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Standardverzeichnisse per VBA ermitteln\",\"datePublished\":\"2020-05-22T19:02:12+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/\"},\"wordCount\":1169,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/bd3368116d3f45f987c1d9a074d7ccf9\",\"articleSection\":[\"2\\\/2016\",\"2016\",\"VBA und Programmiertechniken\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/\",\"name\":\"Standardverzeichnisse per VBA ermitteln - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/bd3368116d3f45f987c1d9a074d7ccf9\",\"datePublished\":\"2020-05-22T19:02:12+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/bd3368116d3f45f987c1d9a074d7ccf9\",\"contentUrl\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/bd3368116d3f45f987c1d9a074d7ccf9\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Standardverzeichnisse_per_VBA_ermitteln\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Standardverzeichnisse per VBA ermitteln\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Standardverzeichnisse per VBA ermitteln - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/","og_locale":"de_DE","og_type":"article","og_title":"Standardverzeichnisse per VBA ermitteln","og_description":"Es gibt eine ganze Reihe von Verzeichnissen, die es auf jedem Rechner gibt. Manche davon sollten eigentlich immer gleich lauten, aber durch die Installation von Windows oder Software auf Laufwerken mit anderen Laufwerkbuchstaben als C: gibt es hier gelegentlich Unterschiede. In manchen Fällen sorgt auch die Betriebssystemversion für Unterschiede, beispielsweise bei 32bit- gegenüber 64bit-Systemen. Und ganz sicher unterscheiden sich die Verzeichnisse, die dem jeweiligen Benutzer gehören. Dennoch wollen Sie früher oder später einmal dynamisch auf ein bestimmtes Verzeichnis zugreifen wie etwa das Verzeichnis der eigenen Dateien eines Benutzers oder das Add-In-Verzeichnis von Access. Dieser Beitrag zeigt, wie Sie solche Verzeichnisse ermitteln.","og_url":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-22T19:02:12+00:00","og_image":[{"url":"http:\/\/vg09.met.vgwort.de\/na\/bd3368116d3f45f987c1d9a074d7ccf9","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"8\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Standardverzeichnisse per VBA ermitteln","datePublished":"2020-05-22T19:02:12+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/"},"wordCount":1169,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/#primaryimage"},"thumbnailUrl":"http:\/\/vg09.met.vgwort.de\/na\/bd3368116d3f45f987c1d9a074d7ccf9","articleSection":["2\/2016","2016","VBA und Programmiertechniken"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/","url":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/","name":"Standardverzeichnisse per VBA ermitteln - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/#primaryimage"},"thumbnailUrl":"http:\/\/vg09.met.vgwort.de\/na\/bd3368116d3f45f987c1d9a074d7ccf9","datePublished":"2020-05-22T19:02:12+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/#primaryimage","url":"http:\/\/vg09.met.vgwort.de\/na\/bd3368116d3f45f987c1d9a074d7ccf9","contentUrl":"http:\/\/vg09.met.vgwort.de\/na\/bd3368116d3f45f987c1d9a074d7ccf9"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Standardverzeichnisse_per_VBA_ermitteln\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Standardverzeichnisse per VBA ermitteln"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55001031","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55001031"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55001031\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55001031"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55001031"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55001031"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}