Vor kurzem fragte mich Andreas Entenmann, ob ich mein Tool zum Auslesen von Verzeichnissen so erweitern könnte, dass nicht nur die Namen der Unterverzeichnisse ausgelesen und in eine Excel Tabelle geschrieben werden, sondern auch die kompletten Pfade pro gefundenem Unterordner. Und wie es oft so ist, kurz nach Andreas‘ Anfrage erhielt ich weitere Anfragen von Usern aus dem Forum „Office-Lösung“, ob ich nicht das Tool auch um eine Funktion zum Auslesen der Dateien erweitern könnte.
Gewünscht, gesagt und getan. Ich habe nun einerseits das Tool um die entsprechenden Funktionen erweitert und ein Add-In generiert, welches eine Benutzeroberfläche mit einstellbaren Optionen zur Verfügung stellt und am Ende des Artikels heruntergeladen werden kann.
Die relativ einfache Variante des Tools hatte ich im Januar 2009 in meinem Blog auf meiner Hauptseite publiziert, den Artikel finden Sie hier „Verzeichnisstruktur mit VBA auflisten“.
Der Code im Add-In ist zwar kennwortgeschützt, kann aber von jedem eingesehen und darf auch in eigenen Projekten verwendet werden, solange die Hinweise im Kopfbereich der Module erhalten bleiben. Davon unberührt bleiben jegliche Urheber-, Verwertungs- und Publizierungsrechte, die alle bei mir verbleiben. Das Kennwort zum VBA Projekt lautet „excelticker“. Der enthaltene Code füllt nicht nur eine Excel Tabelle mit den Ordner- und Dateinamen sondern enthält auch Funktionen zum Füllen eines TreeView Steuerelementes mit der Ordnerstruktur und einer ListView mit den in einem Ordner enthaltenen Dateinamen. Am Rande erwähnt, ein paar Hilfsfunktionen ermöglichen den Aufruf des Windows Verzeichnisauswahldialoges und das Entfernen der Titelleiste in einer UserForm. Nachfolgend eine kurze Beschreibung der wesentlichen Funktionen der Module und des Add-Ins.