Das FileSearch-Objekt

In der heutigen Kolumne beschreibt der Autor Bernd Held wie Sie e-Mails aus Outlook in einer Access-Tabelle sichern können. Er ist anerkannter VBA-Spezialist und trägt für sein Engagement in der den Newsgroupen von
Microsoft seit 8 Jahren den Titel "Most Valuable Professional" (MVP). Nähere Informationen zu seinem erfolgreichen Buch mit Tipps und Lösungen rund um die VBA-Programmierung in Access, finden Sie hier (Das Access-VBA Codebook).

VBA stellt mit dem FileSearch-Objekt ein sehr mächtiges Objekt für Such-Funktionen zur Verfügung. Um dieses Objekt zu nutzen, binden Sie die Bibliothek MICROSOFT SCRIPTING RUNTIME in der Entwicklungsumgebung ein. Diese Bibliothek wird dazu benötigt, die Datumsinformationen von Dateien abzufragen. Das vorherige Einbinden einer zusätzlichen Bibliothek, um an zusätzliche Befehle zu kommen, wird in der Fachsprache als early-binding bezeichnet.
Beim folgenden Beispiel soll Ihre Festplatte nach Datenbanken abgesucht werden. Die Ergebnisse der Suche werden in das Direktfenster der Entwicklungsumgebung ausgegeben.

Code:

Function DB_Infos(FileName As Variant, _ DatNr As Integer) As String Dim fso As Scripting.FileSystemObject   Set fso = New Scripting.FileSystemObject With fso.GetFile(FileName) If DatNr = 1 Then DB_Infos = .Name If DatNr = 2 Then DB_Infos = .DateCreated If DatNr = 3 Then DB_Infos = .DateLastModified If DatNr = 4 Then DB_Infos = .Size End With End Function

Code:

Sub DBsSuchen() With Application.FileSearch .NewSearch .LookIn = "c:\Test\" .FileName = "*.mdb" .SearchSubFolders = True If .Execute() > 0 Then For Each varfile In .FoundFiles Debug.Print varfile Debug.Print DB_Infos(varfile, 1) Debug.Print DB_Infos(varfile, 2) Debug.Print DB_Infos(varfile, 3) Debug.Print DB_Infos(varfile, 4) & vbLf Next varfile End If End With End Sub

Über die Eigenschaft Name ermitteln Sie den Namen der jeweils gefundenen Datenbank.
Mithilfe der Eigenschaft DateCreated können Sie das Anlagedatum einer Datenbank bzw. auch eines Ordners ermitteln. Die Eigenschaft DateLastModified liefert Ihnen den genauen Zeitpunkt der letzten Änderung einer Datenbank. Die Eigenschaft Size liefert Ihnen die Größe in Bytes der Datenbank.
Mithilfe des Objektes FileSearch kann nach bestimmten Dateien in Verzeichnissen gesucht werden. Dieses Objekt bietet einige Eigenschaften an, die angegeben werden können. Über die Eigenschaft FileName wird angegeben, nach welchen Dateien gesucht werden soll. Dabei kann die Endung von Access-Dateien MDB mit einem Sternchen angegeben werden. Es können somit alle Access-Datenbanken gesucht und gefunden werden, egal, wie diese auch immer heißen mögen. Über die Eigenschaft LookIn kann festgelegt werden, wo Access nach den Dateien suchen soll. Hier kann das Laufwerk sowie das Verzeichnis angegeben werden. Dabei darf man nicht den letzten Backslash nach dem Verzeichnisnamen vergessen, da Access hierauf empfindlich reagiert. Sollen noch darunter liegende Verzeichnisse durchsucht werden, dann kann dies über die Eigenschaft SearchSubFolders festgelegt werden. Diese Eigenschaft wird auf den Wert True gesetzt, wenn die angegebene Suche alle Unterordner im durch die LookIn-Eigenschaft angegebenen Ordner einschließen soll. Die Methode Execute führt die jetzt näher spezifizierte Suche anschließend aus.
Nach der Suche sind alle gefundenen Dateien im Objekt FoundFiles verzeichnet. Diese gefundenen Dateien werden in einer anschließenden Schleife nacheinander verarbeitet. Innerhalb der Schleife werden die Dateien ausgewertet, indem die Funktion DB_Info eingesetzt wird. Über den Befehl Debug.Print werden die Dateiinfos im Direktfenster der Entwicklungsumgebung ausgegeben.

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!