{"id":55000289,"date":"2005-08-01T00:00:00","date_gmt":"2020-05-06T15:18:03","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=289"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"VBA_Datei_Verzeichnis_und_ExplorerFunktionen","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/","title":{"rendered":"VBA: Datei, Verzeichnis und Explorer-Funktionen"},"content":{"rendered":"

\"\"<\/p>\n

Zusammenfassung<\/h3>\n

Sie lernen eine Klasse kennen, die Methoden und Eigenschaften zum Auswählen von Dateien und Verzeichnissen liefert.<\/p>\n

Techniken<\/h3>\n

Klassen, Dateiauswahl<\/p>\n

Voraussetzungen<\/h3>\n

Access 97 oder höher<\/p>\n

Beispieldateien<\/h3>\n

Dateien_Beispiel97.mdb<\/a><\/p>\n

Dateien_Beispiel00.mdb<\/p>\n

Filedialog.cls<\/p>\n

<\/h3>\n

André Minhorst, Duisburg<\/b><\/p>\n

Das Auswählen von Dateien ist auch mit dem seit Access XP beziehungsweise Office XP zur Verfügung stehenden Filedialog-Objekt noch lange kein Zuckerschlecken. Mit einer im Internet frei verfügbaren Klasse lassen sich Dialoge zum Auswählen von Dateien und Verzeichnissen mit Access ab Version 97 anzeigen.<\/b><\/p>\n

Viele Access-Anwendungen benötigen eine Möglichkeit, Dateien oder Pfade auszuwählen. Seit Access XP bietet Access dazu ein Objekt – das aber nicht für alle Fälle geeignet ist. So lässt sich etwa kein Dialog zum Speichern von Dateien anzeigen.<\/p>\n

Abhilfe schafft die etablierte Filedialog-Klasse von Karsten Pries (http:\/\/www.kpries.de\/Entwicklertools\/filedialog.htm). Sie ist unter allen gängigen Access-Versionen einsetzbar und bietet Dialoge zum Auswählen von Verzeichnissen, zu öffnenden und zu speichernden Dateien.<\/p>\n

Importieren der Klasse<\/h3>\n

Die Klasse lässt sich leicht in eigene Anwendungen integrieren. öffnen Sie einfach das VBA-Projekt der Anwendung und importieren Sie den Inhalt der Datei Filedialog.cls in ein neues, leeres Klassenmodul.<\/p>\n

Einsatz der Klasse<\/h3>\n

Die Klasse Filedialog bietet Methoden und Eigenschaften, um Dateiauswahldialoge anzuzeigen und den eigenen Wünschen anzupassen. Mit den in Quellcode 1 abgedruckten Zeilen machen Sie die Klasse in einer Routine verfügbar.<\/p>\n

Quellcode 1: Filedialog-Objekt instanzieren<\/b><\/p>\n

Public Sub Filedialogbeispiel()\r\n    Dim objFiledialog As clsFiledialog\r\n    Set objFiledialog = New clsFiledialog\r\n    ''... Filedialog verwenden\r\n    Set objFiledialog = Nothing\r\nEnd Sub\r\n<\/pre>\n
Auswahldialoge<\/h3>\n
Das Objekt bietet drei verschiedene Dialoge an. Jeden Dialog ruft man mit einer anderen Methode auf, die per IntelliSense angeboten wird (siehe Bild 1).<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 1:  Auswahl einer Methode zum Anzeigen eines Dialogs<\/span><\/b><\/p>\n
Mit diesen drei Anweisungen lässt sich auch die kürzeste Fassung des Aufrufs bewerkstelligen. Die folgende Anweisung zeigt einen Datei auswählen-Dialog an und gibt anschließend den Namen der ausgewählten Datei aus:<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 2:  Beispielformular zum Anzeigen eines Datei auswählen-Dialoges<\/span><\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 3:  Datei auswählen-Dialog<\/span><\/b><\/p>\n
MsgBox objFiledialog.ShowOpen<\/pre>\n
An der Anzeige des Dialogs lassen sich noch einige Anpassungen vornehmen.<\/p>\n
Quellcode 2: Anzeige eines Dateidialogs und übernahme der ausgewählten Datei in ein Textfeld <\/b><\/p>\n
Private Sub cmdAuswaehlen_Click()\r\n    Dim objFiledialog As clsFiledialog\r\n    Set objFiledialog = New clsFiledialog\r\n    With objFiledialog\r\n        .DialogTitle = \"Datei auswählen\"\r\n        .Filter1Suffix = \"*.*\"\r\n        .Filter1Text = \"Alle Dateien\"\r\n        Me!txtDatei = .ShowOpen\r\n    End With\r\n    Set objFiledialog = Nothing\r\nEnd Sub<\/pre>\n
<\/p>\n
Nachfolgende Liste enthält einige Eigenschaften und deren Beschreibung:<\/p>\n
  • DialogTitle: Titel des Fensters<\/li>\n
  • DefaultExt: Standardendung, falls keine Endung gewählt<\/li>\n
  • DefaultDir: beim öffnen angezeigtes Verzeichnis<\/li>\n
  • DefaultFilename: filtert nach diesem Dateinamen.<\/li>\n
  • MultiSelect: ermöglicht das Auswählen mehrerer Dateien gleichzeitig.<\/li>\n
  • Filter1Text, Filter2Text,…: Beschriftung eines Filters, etwa „Access-Dateien“<\/li>\n
  • Filter1Suffix, Filter2Suffix,…: Endung, nach der gefiltert werden soll<\/li>\n
  • Das Formular frmDateienAuswaehlenUndOeffnen enthält einige Beispiele. Die oberste Auswählen-Schaltfläche zeigt einen Dialog zum Auswählen einer Datei an (siehe Bild 2).<\/li>\n
    Die durch die Schaltfläche ausgelöste Prozedur finden Sie in Quellcode 2. Sie öffnet den Dialog aus Bild 3. Anschließend schreibt sie den ausgewählten Dateinamen in das im Formular enthaltene Textfeld.<\/p>\n
    Die mittlere Auswählen-Schaltfläche dient zur Anzeige eines Dialogs zum Auswählen eines Verzeichnisses.  Die letzte öffnet wiederum einen Dateiauswahl-Dialog, mit dem diesmal aber mehrere Dateien ausgewählt und im Listenfeld des Formulars angezeigt werden können.<\/p>\n
    Zusammenfassung<\/h3>\n
    Sie lernen eine API- und eine Wrapperfunktion kennen, mit der Sie beliebige Dateien mit der passenden Anwendung öffnen können.<\/p>\n
    Techniken<\/h3>\n
    VBA, API<\/p>\n
    Voraussetzungen<\/h3>\n
    Access 97 oder höher<\/p>\n
    Beispieldateien<\/h3>\n
    Dateien_Beispiel97.mdb<\/a><\/p>\n
    Dateien_Beispiel00.mdb<\/p>\n
    <\/h3>\n
    André Minhorst, Duisburg<\/b><\/p>\n
    Um eine Datenbankanwendung zur Dokumentenverwaltung zu erweitern, benötigt man nur die Möglichkeit, Verweise zu Dokumenten einzupflegen, und eine Möglichkeit, diese unkompliziert aus der Anwendung heraus zu öffnen. Bei Letzterem helfen Ihnen die folgenden Ausführungen.<\/b><\/p>\n
    Thematisch passend zum vorherigen Beitrag finden Sie nun eine Funktion, die das Starten von Dateien mit der im System angegebenen Anwendung ermöglicht.<\/p>\n
    Quellcode 1 enthält die Deklaration der API-Funktion ShellExecute, die zum öffnen von Dateien mit der richtigen Anwendung dient. Diese Deklaration und die Funktion OpenDocument fügen Sie am besten in ein eigenes Standardmodul ein, da es sich auf diese Weise leicht in andere Access-Anwendungen integrieren lässt.<\/p>\n
    Mit diesen paar Zeilen Code haben Sie schon fast alles, was Sie brauchen: Sie müssen nun nur noch die Funktion OpenDocument mit dem Namen der zu öffnenden Datei aufrufen.<\/p>\n
    In der Beispieldatenbank finden Sie das Formular aus dem vorherigen Beitrag wieder. Dort befindet sich unter dem obersten Textfeld eine Schaltfläche mit der Beschriftung Starten. Wählen Sie mit dem Datei öffnen-Dialog die gewünschte Datei aus oder geben Sie diese in das entsprechende Textfeld ein und klicken Sie auf die Schaltfläche. Dadurch lösen Sie die Prozedur aus Quellcode 2 aus und rufen damit die Routine OpenDocument mit dem aktuellen Dateinamen als Parameter auf.<\/p>\n
    Quellcode 1: API-Deklaration und Wrapper für die API-Funktion<\/b><\/p>\n
    Declare Function ShellExecute Lib _    \"shell32.dll\" Alias \"ShellExecuteA\" _    (ByVal hwnd As Long, ByVal lpOperation _    As String, ByVal lpFile As String, _    ByVal lpParameters As String, ByVal _    lpDirectory As String, ByVal nShowCmd _    As Long) As Long\r\nPublic Function OpenDocument(DocumentFile _    As String) As Long\r\n    Dim ret As Long\r\n    If Len(DocumentFile) > 0 Then\r\n        ret = ShellExecute(Application. _            hWndAccessApp, \"open\", _            DocumentFile, vbNullChar, \"\", 1)\r\n        If Err Then\r\n            OpenDocument = 0\r\n        ElseIf ret > 32 Then\r\n            OpenDocument = -1\r\n        Else\r\n            OpenDocument = ret\r\n        End If\r\n    Else\r\n        OpenDocument = 0\r\n    End If\r\nEnd Function<\/pre>\n
    Quellcode 2: Aufrufen der Wrapperfunktion per Mausklick<\/b><\/p>\n
    Private Sub cmdStarten_Click()\r\n    If Not Dir(Me.txtDatei) = \"\" Then\r\n        OpenDocument Me.txtDatei\r\n    End If\r\nEnd Sub<\/pre>\n
    Zusammenfassung<\/h3>\n
    Speichern Sie den Pfad zu einem Kunden- oder Projektverzeichnis und öffnen Sie den Explorer, um automatisch dieses Verzeichnis anzuzeigen.<\/p>\n
    Techniken<\/h3>\n
    VBA<\/p>\n
    Voraussetzungen<\/h3>\n
    Access 97 oder höher<\/p>\n
    Beispieldateien<\/h3>\n
    Dateien_Beispiel97.mdb<\/a><\/p>\n
    Dateien_Beispiel00.mdb<\/p>\n
    <\/h3>\n
    André Minhorst, Duisburg<\/b><\/p>\n
    Im vorherigen Beitrag haben Sie erfahren, wie Sie eine vorgegebene Datei mit der entsprechenden Anwendung öffnen. Unter Umständen möchte man aber gar nicht erst einzelne Dateien mit einem Kunden oder einem Projekt verknüpfen, sondern direkt ein komplettes Verzeichnis für den jeweiligen Zweck reservieren. Kein Problem: Speichern Sie ein Verzeichnis zu jedem Kunden und rufen Sie den Explorer so auf, dass er direkt dieses Verzeichnis anzeigt.<\/b><\/p>\n
    Die Voraussetzungen sind schnell geschaffen: Fügen Sie der Kundentabelle Ihrer Anwendung ein Feld namens Verzeichnis hinzu und nehmen Sie die entsprechenden Anpassungen am Detailformular vor – wie etwa in Bild 1.<\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 1:  Kundenformular mit Stammverzeichnis<\/span><\/b><\/p>\n
    Die Schaltfläche zum Auswählen des Verzeichnisses können Sie mit der im Beitrag Dateien auswählen mit Klasse vorgestellten Prozedur füllen. Die zweite Schaltfläche zum öffnen des Explorers versehen Sie mit der Prozedur aus Quellcode 1. Die Prozedur enthält lediglich eine Anweisung: Per Shell-Befehl wird der Explorer gestartet und das gewünschte Verzeichnis an diesen übergeben.<\/p>\n
    Quellcode 1: Prozedur zum öffnen des Explorers mit voreingestelltem Verzeichnis<\/b><\/p>\n
    Private Sub cmdAnzeigen_Click()\r\n    Shell \"Explorer.exe \/n, \/e, \" & Me!Verzeichnis, vbNormalFocus\r\nEnd Sub<\/pre>\n
    Das Ergebnis zeigt Abb. 2: Der Explorer erscheint und zeigt das Verzeichnis des jeweiligen Kunden an.<\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 2:  Explorer, bei Fuß!<\/span><\/b><\/p>\n
    Die Vorgehensweise ist für beliebige andere Daten einsetzbar – Sie könnten auch jeden Datensatz einer Projekte-Tabelle mit einem eigenen Verzeichnis auf der Festplatte versehen. Noch schöner wäre es natürlich, wenn man für einen neuen Datensatz automatisch die benötigte Verzeichnisstruktur in einem bestimmten Stammverzeichnis anlegt – dazu müssen Sie lediglich das Stammverzeichnis ermitteln und dann per VBA einige MkDir-Anweisungen absetzen – am besten natürlich in einer Ereignisprozedur, die nach dem Anlegen eines Kunden ausgelöst wird.<\/p>\n","protected":false},"excerpt":{"rendered":"
    Das Auswählen von Dateien ist auch mit dem seit Access XP beziehungsweise Office XP zur Verfügung stehenden Filedialog-Objekt noch lange kein Zuckerschlecken. Mit einer im Internet frei verfügbaren Klasse lassen sich Dialoge zum Auswählen von Dateien und Verzeichnissen mit Access ab Version 97 anzeigen.<\/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":[662005,66042005,44000025],"tags":[],"class_list":["post-55000289","post","type-post","status-publish","format-standard","hentry","category-662005","category-66042005","category-VBA_und_Programmiertechniken"],"yoast_head":"\nVBA: Datei, Verzeichnis und Explorer-Funktionen - 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\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"VBA: Datei, Verzeichnis und Explorer-Funktionen\" \/>\n<meta property=\"og:description\" content=\"Das Auswählen von Dateien ist auch mit dem seit Access XP beziehungsweise Office XP zur Verfügung stehenden Filedialog-Objekt noch lange kein Zuckerschlecken. Mit einer im Internet frei verfügbaren Klasse lassen sich Dialoge zum Auswählen von Dateien und Verzeichnissen mit Access ab Version 97 anzeigen.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-06T15:18:03+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg05.met.vgwort.de\/na\/3974d3e4741c40e281d3d484510ecd6c\" \/>\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=\"7\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"VBA: Datei, Verzeichnis und Explorer-Funktionen\",\"datePublished\":\"2020-05-06T15:18:03+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/\"},\"wordCount\":1178,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/3974d3e4741c40e281d3d484510ecd6c\",\"articleSection\":[\"2005\",\"4\\\/2005\",\"VBA und Programmiertechniken\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/\",\"name\":\"VBA: Datei, Verzeichnis und Explorer-Funktionen - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/3974d3e4741c40e281d3d484510ecd6c\",\"datePublished\":\"2020-05-06T15:18:03+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/3974d3e4741c40e281d3d484510ecd6c\",\"contentUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/3974d3e4741c40e281d3d484510ecd6c\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"VBA: Datei, Verzeichnis und Explorer-Funktionen\"}]},{\"@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":"VBA: Datei, Verzeichnis und Explorer-Funktionen - 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\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/","og_locale":"de_DE","og_type":"article","og_title":"VBA: Datei, Verzeichnis und Explorer-Funktionen","og_description":"Das Auswählen von Dateien ist auch mit dem seit Access XP beziehungsweise Office XP zur Verfügung stehenden Filedialog-Objekt noch lange kein Zuckerschlecken. Mit einer im Internet frei verfügbaren Klasse lassen sich Dialoge zum Auswählen von Dateien und Verzeichnissen mit Access ab Version 97 anzeigen.","og_url":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-06T15:18:03+00:00","og_image":[{"url":"http:\/\/vg05.met.vgwort.de\/na\/3974d3e4741c40e281d3d484510ecd6c","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"7\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"VBA: Datei, Verzeichnis und Explorer-Funktionen","datePublished":"2020-05-06T15:18:03+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/"},"wordCount":1178,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/3974d3e4741c40e281d3d484510ecd6c","articleSection":["2005","4\/2005","VBA und Programmiertechniken"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/","url":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/","name":"VBA: Datei, Verzeichnis und Explorer-Funktionen - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/3974d3e4741c40e281d3d484510ecd6c","datePublished":"2020-05-06T15:18:03+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/#primaryimage","url":"http:\/\/vg05.met.vgwort.de\/na\/3974d3e4741c40e281d3d484510ecd6c","contentUrl":"http:\/\/vg05.met.vgwort.de\/na\/3974d3e4741c40e281d3d484510ecd6c"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/VBA_Datei_Verzeichnis_und_ExplorerFunktionen\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"VBA: Datei, Verzeichnis und Explorer-Funktionen"}]},{"@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\/55000289","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=55000289"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000289\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000289"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000289"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000289"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}