Im Artikel „Ordner und Dateien in Access-Tabellen einlesen“ (www.access-im-unternehmen.de\/1583) haben wir gezeigt, wie wir den Inhalt kompletter Ordner samt Unterordnern und Dateien in Tabellen speichern. Doch was helfen die dort liegenden Daten, wenn wir sie nicht in einem Access-Formular anzeigen können? Wie das gelingt, zeigen wir im vorliegenden Artikel. Als Steuerelement für die Anzeige hierarchischer Daten ist das TreeView-Steuerelement prädestiniert. Wir möchten alle Elemente der Tabellen aus dem oben genannten Artikel in einem solchen Steuerelement anzeigen und weitere Funktionen hinzufügen: die Anzeige des jeweiligen Ordners direkt im Windows Explorer, das Öffnen der aktuell markierten Datei oder auch das Ausschneiden, Kopieren und Einfügen, das wir nicht nur auf die Elemente des TreeView-Steuerelements anwenden, sondern auch auf die Originaldateien. Auch das Umbenennen von Ordnern und Dateien soll möglich sein – und schließlich wollen wir auch noch deren Speicherort durch Drag and Drop anpassen können. In diesem Artikel erfährst Du erst einmal, wie Du das TreeView schnell mit Ordnern und Dateien füllen kannst. <\/b><\/p>\n
Formular mit TreeView-Steuerelement erstellen<\/h2>\n
Zunächst legen wir ein neues Formular namens frmDateienImTreeview <\/b>in der Entwurfsansicht an.<\/p>\n
Diesem fügen wir gleich das TreeView<\/b>-Steuerelement hinzu, mit dem wir die Dateien anzeigen wollen, und nennen es ctlTreeView<\/b>.<\/p>\n
Das TreeView<\/b>-Steuerelement soll für seine Einträge Icons anzeigen, daher fügen wir noch ein ImageList<\/b>-Steuerelement namens ctlImageList <\/b>hinzu. Oben fügen wir weitere Steuerelemente ein:<\/p>\n Der Entwurf sieht nun zunächst wie in Bild 1 aus.<\/p>\n Bild 1: Grundaufbau des Formulars<\/span><\/b><\/p>\n Die Einstellungen der beiden Steuerelemente txtBasispfad <\/b>und chkDateienImTreeViewAnzeigen <\/b>wollen wir speichern und jeweils beim nächsten Öffnen des Formulars wiederherstellen. Dazu benötigen wir eine Tabelle namens tblOptionen<\/b>, deren Entwurf wie in Bild 2 aussieht.<\/p>\n Bild 2: Entwurf der Optionen-Tabelle<\/span><\/b><\/p>\n Das Formular binden wir über die Eigenschaft Datensatzquelle an die Tabelle tblOptionen<\/b>, die beiden Steuerelemente txtBasispfad <\/b>und chkDateienImTreeViewAnzeigen <\/b>über die Eigenschaft Steuerelementinhalt <\/b>an die jeweiligen Felder der Optionentabelle.<\/p>\n Damit wir den Ordner auswählen können, dessen Unterordner und Dateien im TreeView<\/b>-Steuerelement angezeigt werden sollen, hinterlegen wir für die Schaltfläche cmdOrdnerAuswaehlen <\/b>die folgende Ereignisprozedur:<\/p>\n Diese zeigt über die Funktion ChooseFolder <\/b>einen Ordnerauswahl-Dialog an:<\/p>\n Um die hier verwendete Klasse FileDialog <\/b>zu nutzen, müssen wir noch einen Verweis auf die Bibliothek Microsoft Office 16.0 Object Library <\/b>hinzufügen.<\/p>\n Nach der Auswahl werden die Daten des Formulars mit Me.Dirty = False <\/b>gespeichert.<\/p>\n Bevor wir uns die Prozeduren ansehen, mit denen wir die Ordner und Dateien aus den Tabellen tblFolders <\/b>und tblFiles <\/b>in das TreeView<\/b>-Steuerelement laden, fügen wir im Kopf des Klassenmoduls des Formulars frmDateienImTreeView <\/b>die folgenden Deklarationsanweisungen hinzu:<\/p>\n Die ersten beiden benötigen wir, um die Steuerelemente ctlTreeView <\/b>und ctlImageList <\/b>zu referenzieren, die beiden übrigen als temporären Speicher für die anzuzeigenden Ordner und Dateien. Um diese Dictionary<\/b>-Elemente nutzen zu können, benötigen wir einen weiteren Verweis, dieses Mal auf die Bibliothek Microsoft Scripting Runtime<\/b>.<\/p>\n In der Prozedur, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird (siehe Listing 1), aktivieren wir zunächst die Sanduhr (die wir am Ende wieder deaktivieren) und weisen der Variablen objImageList <\/b>die Eigenschaft Object <\/b>des Steuerelements ctlImageList <\/b>zu. Damit können wir per IntelliSense auf die spezifischen Eigenschaften dieses Steuerelements zugreifen. <\/p>\n Listing 1: Diese Prozedur wird beim Laden des Formulars ausgeführt.<\/span><\/b><\/p>\n Dann stellen wir seine Eigenschaften ImageHeight <\/b>und ImageWidth <\/b>jeweils auf 16 Pixel ein, um die Größe der anzuzeigenden Icons festzulegen. Schließlich rufen wir die Prozedur ImageListFuellen <\/b>auf (siehe Listing 2). Diese geht davon aus, dass wir die Icons, die wir im TreeView<\/b>-Steuerelement anzeigen wollen, in der Systemtabelle MSysResources <\/b>gespeichert haben.<\/p>\n Listing 2: Füllen des ImageList-Steuerelements mit den Bildern aus MSysResources<\/span><\/b><\/p>\n Das haben wir bereits erledigt (siehe Bild 3). Die Prozedur ImageListFuellen <\/b>öffnet ein Recordset basierend auf der Tabelle MSysResources<\/b>, gefiltert nach den Elementen des Typs png<\/b>.<\/p>\n Bild 3: Icons für das TreeView-Steuerelement in der Tabelle MSysResources<\/span><\/b><\/p>\n Dann referenziert sie das ImageList<\/b>-Steuerelement mit der bereits im Modulkopf deklarierten Variablen objImageList<\/b>. Anschließend wird die Eigenschaft ImageList <\/b>des Steuerelements ctlTreeView <\/b>geleert – dieses wird später erneut zugewiesen.<\/p>\n Dann leert die Prozedur das ImageList<\/b>-Steuerelement mit der Clear<\/b>-Methode der ListImages<\/b>-Auflistung. Dann ruft die Prozedur eine weitere Prozedur namens amvAddIconToImageListFromResourcesByName <\/b>auf.<\/p>\n Diese wollen wir hier nicht im Detail beschreiben – sie lädt das Element mit dem Namen aus rst!Name<\/b> für den aktuellen Datensatz des Recordsets und fügt es zum ImageList<\/b>-Steuerelement hinzu (siehe Modul MDL_AMV_Pictures<\/b>). Auf diese Weise landen alle .png<\/b>-Dateien aus der Tabelle MSysResources <\/b>im ImageList<\/b>-Steuerelement und können so im TreeView<\/b>-Steuerelement verwendet werden.<\/p>\n Um dies nicht im ImageList<\/b>-Steuerelement prüfen zu müssen, gibt die Prozedur den Index und die Namen aller Elemente einmal im Direktbereich des VBA-Editors aus – diesen Bereich können wir im produktiven Einsatz später entfernen. Das Ergebnis sieht in diesem Fall wie folgt aus:<\/p>\n Danach schließt und leert die Prozedur alle Objektvariablen.<\/p>\n Zurück in der Prozedur Form_Load <\/b>referenzieren wir nun das TreeView<\/b>-Steuerelement aus Me.ctlTreeView.Object <\/b>mit der Variablen objTreeView<\/b> und stellen einige Eigenschaften ein. Als Erstes weisen wir diesem für die Eigenschaft ImageList <\/b>den Inhalt von objImageList <\/b>zu. So weiß das TreeView<\/b>-Steuerelement, woher es seine Icons beziehen soll, die wir nachher den Elementen zuweisen.<\/p>\n Dann leert die Prozedur alle gegebenenfalls noch vorhandenen Elemente. Schließlich folgt die Einstellung weiterer Eigenschaften, die für das Aussehen des TreeView<\/b>-Steuerelements verantwortlich sind:<\/p>\n Schließlich rufen wir die Prozedur FillTreeView <\/b>auf, die das eigentliche Füllen des TreeView<\/b>-Steuerelements initialisiert.<\/p>\n Dieser übergeben wir als Parameter den Wert des Kontrollkästchens chkDateienInTreeviewAnzeigen<\/b>, das angibt, ob nur Ordner oder auch Dateien im TreeView angezeigt werden sollen.<\/p>\n Anschließend markierten wir noch das Element, das zuletzt selektiert wurde (mehr dazu später).<\/p>\n Den Start beim Füllen des TreeView<\/b>-Steuerelements macht die Prozedur FillTreeView<\/b>, der wir einen Boolean-Wert übergeben, der angibt, ob neben den Ordnern auch Dateien angezeigt werden sollen oder nicht (siehe Listing 3).<\/p>\n Listing 3: Füllen des TreeView-Steuerelements mit FillTreeView<\/span><\/b><\/p>\n Diese Prozedur und die dadurch aufgerufenen Routinen sind auf Performance getrimmt. Das heißt, wir durchlaufen die Datensätze der Tabellen tblFolders <\/b>und tblFiles <\/b>nicht wie sonst üblich rekursiv und fügen Ordner für Ordner und Datei für Datei zum TreeView<\/b>-Steuerelement hinzu, sondern nutzen eine andere Vorgehensweise. Dazu füllen wir zunächst die beiden Variablen dicFolders <\/b>und dicFiles<\/b>, die wir bereits im Kopf des Moduls deklariert haben, mit neuen, leeren Dictionary<\/b>-Objekten.<\/p>\n Dann durchlaufen wir alle Datensätze der Tabelle tblFolder<\/b>, aber wir nutzen dazu eine vorgeschaltete Abfrage namens qryFoldersFolderUserData<\/b> (siehe Bild 4). Diese fasst die Daten der Tabelle tblFolders <\/b>mit denen der Tabelle FolderUserData <\/b>zusammen – hier legen wir etwa fest, ob ein Ordner ausgeklappt angezeigt werden soll. Außerdem sortiert die Abfrage direkt aufsteigend nach dem Feld Foldername<\/b>, damit diese später in der korrekten Reihenfolge eingelesen werden.<\/p>\n Bild 4: Abfrage mit Ordnern und der Information, ob ein Ordner ausgeklappt angezeigt werden soll<\/span><\/b><\/p>\n Recordsets öffnen wir hier übrigens immer mit dem Parameter dbOpenSnapshot<\/b>, da wir immer nur lesen zugreifen und dies schneller ist.<\/p>\n Wir durchlaufen alle Elemente des Recordsets und rufen für jedes die Prozedur AddFolderToDictionary <\/b>auf (siehe Listing 4). Wir beabsichtigen nämlich nicht, die Elemente direkt zum TreeView<\/b>-Steuerelement hinzuzufügen, sondern diese erst im Dictionary dicFolders <\/b>zwischenspeichern.<\/p>\n Listing 4: Speichern der Ordner und weiterer Daten im Dictionary dicFolders<\/span><\/b><\/p>\n Diese Prozedur nimmt die ID des übergeordneten Elements, die ID des Ordners, den Namen des Ordners sowie den Wert der Eigenschaft Expanded <\/b>entgegen.<\/p>\n Dann prüft sie, ob im Dictionary dicFolders <\/b>bereits ein Element existiert, das dem Wert aus dem Parameter varParentID <\/b>entspricht.<\/p>\n Falls nicht, wird eine neue Collection angelegt und als neues Element in dicFolders <\/b>mit dem Index aus Nz(varParentID, 0) <\/b>angelegt – wobei varParentID <\/b>für Ordner der obersten Ebene Null <\/b>lautet und durch Nz <\/b>stattdessen der Wert 0 <\/b>eingetragen wird.<\/p>\n Dann fügen wir zu dem Element von dicFolders <\/b>für die aktuelle ParentID <\/b>ein Array hinzu, das alle Informationen zu dem anzuzeigenden Ordner enthält. Die drei Elemente des Arrays kommen aus den Parametern lngFolderID<\/b>, strFoldername <\/b>und bolExpanded<\/b>.<\/p>\n Auf diese Weise fügen wir also einen zweistufigen Container für die später in das TreeView<\/b>-Steuerelement zu schreibenden Daten zusammen – die erste Stufe, das Dictionary<\/b>-Objekt dicFolders <\/b>enthält als Index die ParentID <\/b>und als eigentlichen Inhalt das Collection<\/b>-Objekt col<\/b>. <\/p>\n Dieses wiederum enthält für den Ordner mit der angegebenen Parent-ID jeweils einen Eintrag, bestehend aus einem Array mit der ID des Ordners, dem Namen des Ordners und dem Boolean<\/b>-Wert, ob der Ordner ausgeklappt angezeigt werden soll. Das sieht ungefähr so aus:<\/p>\n Das Gleiche erledigen wir anschließend mit den Einträgen für die Dateien aus der Tabelle tblFiles<\/b>.<\/p>\n Dabei durchlaufen wir in der Prozedur FillTreeView <\/b>ein Recordset über alle Datensätze der Tabelle tblFiles<\/b>, wobei wir diese wieder sortieren, dieses Mal allerdings direkt im Parameter der OpenRecordset<\/b>-Methode.<\/p>\n Die Dateien werden allerdings nur eingelesen, wenn der Parameter bolFiles <\/b>den Wert True <\/b>hat, wenn das TreeView<\/b>-Steuerelement also nicht nur Ordner, sondern auch Dateien anzeigen soll.<\/p>\n Beim Durchlaufen der Datensätze rufen wir für jeden Datensatz die Prozedur AddFileToDictionary<\/b> aus Listing 5 auf. Diese erwartet ähnliche Parameter wie AddFolderToDictionary<\/b>:<\/p>\n Listing 5: Speichern der Dateien im Dictionary dicFiles<\/span><\/b><\/p>\n Allerdings benötigen wir hier logischerweise den Parameter Expanded <\/b>nicht, da die Datei-Einträge keine weiteren untergeordneten Einträge enthalten.<\/p>\n Die Prozedur AddFileToDictionary<\/b> nutzt dieses Mal das Dictionary<\/b>-Element aus der Variablen dicFiles <\/b>und fügt, sofern bisher nicht vorhanden, für jeden Wert aus varParentID <\/b>ein neues Element hinzu. Diesem wird jeweils ein Collection<\/b>-Objekt namens col <\/b>hinzugefügt, in dem alle Tupel aus lngFileID <\/b>und strFilename <\/b>landen.<\/p>\n Im letzten Schritt ruft die Prozedur FillTreeView <\/b>eine weitere Prozedur namens BuildTree <\/b>auf, die als ersten Parameter den Wert Null <\/b>und als zweiten den Wert Nothing <\/b>erhält.<\/p>\n Die Definition der Prozedur aus Listing 6 zeigt, wozu diese Parameterwerte verwendet werden:<\/p>\n\n
![\"Grundaufbau](\"..\/fileadmin\/_temp_\/2026_01\/pic_1584_001.png\")
<\/p>\nOptionentabelle anlegen<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2026_01\/pic_1584_002.png\")
<\/p>\nBasispfad auswählen<\/h2>\n
Private Sub <\/span>cmdOrdnerAuswaehlen_Click()\r\n Me.txtBasispfad = ChooseFolder\r\n Me.Dirty = False<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>ChooseFolder()\r\n Dim <\/span>objFileDialog As <\/span>Office.FileDialog\r\n Dim <\/span>strTemp As String<\/span>\r\n Set<\/span> objFileDialog = _\r\n Application.FileDialog(msoFileDialogFolderPicker)\r\n With<\/span> objFileDialog\r\n .Title = \"Datei auswählen\"\r\n .ButtonName = \"Auswählen\"\r\n .InitialFilename = CurrentProject.Path & \"\\\"\r\n If <\/span>.Show = True<\/span> Then<\/span>\r\n strTemp = .SelectedItems(1)\r\n End If<\/span>\r\n End With<\/span>\r\n ChooseFolder = strTemp\r\nEnd Function<\/span><\/pre>\nFüllen des TreeView-Steuerelements<\/h2>\n
Dim <\/span>objTreeview As <\/span>MSComctlLib.TreeView\r\nDim <\/span>objImageList As <\/span>MSComctlLib.ImageList\r\nDim <\/span>dicFolders As <\/span>Scripting.Dictionary\r\nDim <\/span>dicFiles As <\/span>Scripting.Dictionary<\/pre>\nDie Ereignisprozedur Beim Laden<\/h2>\n
Private Sub <\/span>Form_Load()\r\n \r\n DoCmd.Hourglass True<\/span>\r\n \r\n Set<\/span> objImageList = Me.ctlImageList.Object\r\n \r\n objImageList.ImageHeight = 16\r\n objImageList.ImageWidth = 16\r\n Call<\/span> ImageListFuellen\r\n \r\n Set<\/span> objTreeview = Me.ctlTreeView.Object\r\n With<\/span> objTreeview\r\n Set<\/span> .ImageList = objImageList\r\n .Nodes.Clear\r\n .Appearance = ccFlat\r\n .BorderStyle = ccNone\r\n .HideSelection = False<\/span>\r\n .LineStyle = tvwRootLines\r\n .Indentation = 250\r\n .Font.name = \"Calibri\"\r\n .Font.Size = 10\r\n .OLEDragMode = ccOLEDragAutomatic\r\n .OLEDropMode = ccOLEDropManual\r\n End With<\/span>\r\n \r\n Call<\/span> FillTreeView(Me.chkDateienInTreeviewAnzeigen)\r\n Call<\/span> SelectCurrentNode\r\n \r\n DoCmd.Hourglass False<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>ImageListFuellen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>objImageList As <\/span>MSComctlLib.ImageList\r\n \r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM MSysResources WHERE Extension = ''PNG''\", dbOpenSnapshot)\r\n \r\n Set<\/span> objImageList = Me.ctlImageList.Object\r\n \r\n Set<\/span> ctlTreeView.Object.ImageList = Nothing\r\n \r\n objImageList.ListImages.Clear\r\n \r\n Do While<\/span> Not<\/span> rst.EOF\r\n Call<\/span> amvAddIconToImageListFromResourcesByName(objImageList, rst!name)\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n \r\n Dim <\/span>objListImage As <\/span>MSComctlLib.ListImage\r\n For Each objListImage In objImageList.ListImages\r\n Debug.Print<\/span> objListImage.Index, objListImage.Key\r\n Next<\/span> objListImage\r\n \r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n![\"Icons](\"..\/fileadmin\/_temp_\/2026_01\/pic_1584_003.png\")
<\/p>\n 1 book\r\n 2 folder\r\n 3 new\r\n 4 delete\r\n 5 refresh<\/pre>\n
\n
Füllen des TreeView-Steuerelements mit FillTreeView<\/h2>\n
Private Sub <\/span>FillTreeView(Optional<\/span> bolFiles As Boolean<\/span> = False<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n \r\n Set<\/span> dicFolders = New<\/span> Scripting.Dictionary\r\n Set<\/span> dicFiles = New<\/span> Scripting.Dictionary\r\n \r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT FolderID, Foldername, ParentID, Expanded FROM qryFoldersFolderUserData\", _\r\n dbOpenSnapshot)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n AddFolderToDictionary rst!ParentID, rst!FolderID, rst!FolderName, rst!Expanded\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n \r\n If <\/span>bolFiles = True<\/span> Then<\/span>\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT FileID, Filename, ParentID FROM tblFiles ORDER BY Filename\", dbOpenSnapshot)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n AddFileToDictionary rst!ParentID, rst!FileID, rst!FileName\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n rst.Close\r\n End If<\/span>\r\n \r\n BuildTree Null, Nothing\r\n \r\nEnd Sub<\/span><\/pre>\nOrdner in Dictionary einlesen<\/h2>\n
![\"Abfrage](\"..\/fileadmin\/_temp_\/2026_01\/pic_1584_004.png\")
<\/p>\nPrivate Sub <\/span>AddFolderToDictionary(varParentID As Variant<\/span>, lngFolderID As Long<\/span>, strFolderName As String<\/span>, _\r\n bolExpanded As Boolean<\/span>)\r\n Dim <\/span>col As <\/span>Collection\r\n If <\/span>Not<\/span> dicFolders.Exists(Nz(varParentID, 0)) Then<\/span>\r\n Set<\/span> col = New<\/span> Collection\r\n dicFolders.Add Nz(varParentID, 0), col\r\n End If<\/span>\r\n \r\n dicFolders(Nz(varParentID, 0)).Add Array(lngFolderID, strFolderName, bolExpanded)\r\nEnd Sub<\/span><\/pre>\nParentID: 0\r\n FolderID: 1 FolderName: Dir01 Expanded: False<\/span>\r\n FolderID: 2 FolderName: Dir02 Expanded: False<\/span>\r\n FolderID: 3 FolderName: Dir03 Expanded: True<\/span> \r\nParentID: 1\r\n FolderID: 4 FolderName: Dir0101 Expanded: False<\/span>\r\n...<\/pre>\nDateien in Dictionary einlesen<\/h2>\n
Private Sub <\/span>AddFileToDictionary(varParentID As Variant<\/span>, lngFileID As Long<\/span>, strFileName As String<\/span>)\r\n Dim <\/span>col As <\/span>Collection\r\n \r\n If <\/span>Not<\/span> dicFiles.Exists(Nz(varParentID, 0)) Then<\/span>\r\n Set<\/span> col = New<\/span> Collection\r\n dicFiles.Add Nz(varParentID, 0), col\r\n End If<\/span>\r\n \r\n dicFiles(Nz(varParentID, 0)).Add Array(lngFileID, strFileName)\r\nEnd Sub<\/span><\/pre>\n\n
TreeView-Steuerelement füllen<\/h2>\n
Private Sub <\/span>BuildTree(varParentID As Variant<\/span>, objParentNode As <\/span>MSComctlLib.Node)\r\n Dim <\/span>col As <\/span>Collection\r\n Dim <\/span>varItem As Variant<\/span>\r\n Dim <\/span>objNode As <\/span>MSComctlLib.Node\r\n Dim <\/span>lngID As Long<\/span>\r\n Dim <\/span>strName As String<\/span>\r\n Dim <\/span>bolExpanded As Boolean<\/span>\r\n If <\/span>dicFolders.Exists(Nz(varParentID, 0)) Then<\/span>\r\n Set<\/span> col = dicFolders(Nz(varParentID, 0))\r\n \r\n For Each varItem In col\r\n lngID = varItem(0)\r\n strName = varItem(1)\r\n bolExpanded = varItem(2)\r\n \r\n If <\/span>objParentNode Is Nothing Then<\/span>\r\n Set<\/span> objNode = objTreeview.Nodes.Add(, , \"f\" & lngID, strName, \"folder\")\r\n Else<\/span>\r\n