<\/p>\n
Christoph Spielmann, Düsseldorf, und Klaus Gießen, Wuppertal<\/b><\/p>\n
Die Speicherkapazität von Festplatten hat gerade in den letzten Jahren rasant zugenommen. Momentan sind Festplatten mit 80 bis 100 MB handelsüblich, und Festplatten mit mehreren Terabyte für normale PC-Systeme bereits im Gespräch. Mit zunehmender Größe des zur Verfügung stehenden Speicherplatzes wächst erfahrungsgemäß auch die Anzahl der gespeicherten Dateien. Folglich wird die Suche nach bestimmen Dateien in solch großen Datenbeständen mit den üblichen Dateimanagern, wie beispielsweise dem Windows-Explorer, immer unübersichtlicher und schwieriger – und vor allem: wesentlich zeitaufwendiger. Die hier vorgestellte Lösung zeigt Ihnen, wie Sie umfangreiche Datenbestände mit Hilfe von Access in den Griff bekommen.<\/b><\/p>\n
Das Organisieren von Datenbeständen ist eine der bekannten Domänen von Datenbanksystemen wie Access. Also liegt die Verwendung einer entsprechend gestalteten Datenbank zur Verwaltung und zur Suche nach Dateien nahe.<\/p>\n
Auch Microsoft ist inzwischen auf diese Idee gekommen und hat bereits den Nachfolger des SQL Servers 2000 (Codename Yukon) als Ersatz für das Dateisystem des Windows-XP-Nachfolgers Longhorn angekündigt.<\/p>\n
Die daraus resultierenden Vorteile werden sicherlich revolutionär sein. So wird es beispielsweise möglich, z. B. eine Datei mit Daten zu Ihrer Steuererklärung gleichzeitig unter den Pfaden EKSteuer\/2002 und 2002\/Steuer\/EK abzulegen.<\/p>\n
Dass die Suche nach Dateien bei Einsatz einer Datenbank sehr schnell vonstatten geht, versteht sich hierbei von selbst – und das ist auch einer der wesentlichen Aspekte der vorgestellten Lösung. Wer gelegentlich verschollen geglaubte Dateien auf einer großen Festplatte mit vielen Daten sucht, wird gerade den Geschwindigkeitsvorteil zu schätzen wissen.<\/p>\n
Um Ihnen die Wartezeit bis zum Erscheinen von Longhorn etwas zu versüßen, stellen wir Ihnen hier eine Lösung namens FileScanner für Access vor, die zumindest die Suche nach Dateien dramatisch beschleunigt.<\/p>\n
Der Einsatzbereich dieser Lösung umfasst in erster Linie Festplattenlaufwerke – lokal oder im Netzwerk.<\/p>\n
Die Archivierung von CD-ROMs und anderen Medien ist sicher sinnvoll, wird aber im Rahmen des vorliegenden Beitrags nicht behandelt.<\/p>\n
Sie finden die Beispieldatenbank der Musterlösung FileScanner für Access 2000 und höher auf der beiliegenden CD-ROM unter dem Dateinamen FileScanner.mdb. <\/p>\n
Eine Version einer Musterlösung für Access 97 liegt leider nicht vor, da der Programmcode von Klassenmodulen ausgelöste Ereignisse verwendet.<\/p>\n
Dieses Feature steht erst ab Access 2000 zur Verfügung.<\/p>\n
Die wichtigste Forderung bei der Entwicklung des FileScanners ist das schnelle Auffinden von Dateien auf Medien mit festen Pfaden wie beispielsweise Festplatten auf lokalen oder Netzwerkrechnern.<\/p>\n
Die Kernfunktion ist dementsprechend das Einlesen von Laufwerken mit allen Verzeichnissen und Unterverzeichnissen. Zusätzlich stellt die hier vorgestellte Datenbank ein Formular zur Suche nach Dateien sowie zum öffnen einer gefundenen Datei direkt aus der Datenbank heraus zur Verfügung. Eine .mdb-Datei wird beim Anklicken beispielsweise mit Access geöffnet.<\/p>\n
Das Datenmodell des FileScanners besteht aus einer einzigen Tabelle namens tblFiles, deren Entwurfsansicht Sie in Bild 1 finden.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{C3B82FCC-8ED7-4991-B5D6-D89E7402C6D8}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Die Tabelle tblFiles in der Entwurfsansicht<\/span><\/b><\/p>\n Einige Felder der Tabelle tblFiles weisen Besonderheiten auf:<\/p>\n Die Beispiellösung enthält lediglich zwei Formulare und ein Unterformular, die Sie in den folgenden Abschnitten näher kennen lernen.<\/p>\n Das Formular frmScan<\/b><\/p>\n Das Formular frmScan steuert das Durchsuchen (Scannen) eines Laufwerks. Es enthält im Wesentlichen ein ungebundenes Textfeld zur Eingabe des Startverzeichnisses und zwei Schaltflächen (siehe Bild 2).<\/p>\n <\/b><\/p>\n Bild 2: Das Formular frmScan in der Entwurfsansicht<\/span><\/b><\/p>\n Weiterhin ist in diesem Formular noch ein ungebundenes Textfeld zur Anzeige von Statusmeldungen vorhanden. Dies ist sinnvoll, da das Einscannen eines Laufwerks je nach Anzahl der Dateien längere Zeit in Anspruch nehmen kann.<\/p>\n Das Formular frmFind<\/b><\/p>\n Das Formular frmFind erledigt die Suche nach einer Datei. Es enthält neben einem ungebundenen Textfeld zur Eingabe eines Suchbegriffs noch eine Schaltfläche zum Start der Suche (siehe Bild 3).<\/p>\n <\/b><\/p>\n Bild 3: Das Dialogfenster Optionen<\/span><\/b><\/p>\n Das Unterformular frmFind_Sub zeigt den Verzeichnis- und Dateinamen der gefundenen Dateien als Datenblatt an (siehe Bild 4).<\/p>\n Damit haben Sie – abgesehen vom VBA-Code – schon alle Objekte der Musterlösung kennen gelernt.<\/p>\n Bevor wir Ihnen die Funktionsweise des FileScanners vorstellen, finden Sie in diesem Abschnitt zunächst seine Anwendung beschrieben.<\/p>\n <\/b><\/p>\n Bild 4: Das Formular frmFind in der Entwurfsansicht<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 5: Entwurfsansicht des Unterformulars frmFind_Sub<\/span><\/b><\/p>\n Vor dem Experimentieren beachten Sie jedoch Folgendes: <\/p>\n Weil Sie in der Anfangsphase sicherlich häufig neue Scans durchführen und wieder löschen, sorgen Sie am besten für eine automatische Komprimierung der FileScanner-Datenbank beim Schließen. Hierzu gehen Sie wie folgt vor:<\/p>\n Dateien und Verzeichnisse einlesen<\/b><\/p>\n Die Bedienung des FileScanners ist sehr einfach. öffnen Sie das Formular frmScan und geben Sie in das Feld Start-Verzeichnis das gewünschte Laufwerk oder Verzeichnis ein.<\/p>\n Mit einem Klick auf die Schaltfläche Start wird das Einlesen der Dateien gestartet (siehe Bild 6). Ausgangspunkt des Einlesevorgangs ist das von Ihnen eingegebene Laufwerk bzw. Verzeichnis. Von dort aus werden ebenfalls alle eventuell vorhandenen Unterverzeichnisse durchsucht.<\/p>\n Wenn Sie das Root-Verzeichnis einer größeren und gut gefüllten Festplatte als Startpunkt angeben, kann der Scan ohne Weiteres 10 bis 20 Minuten dauern. Fassen Sie sich also in Geduld oder brechen Sie den Einlesevorgang mit der Abbrechen-Schaltfläche ab. <\/p>\n Während des Suchvorgangs informiert Sie eine Statuszeile unterhalb der Schaltfläche Start über den Fortschritt des Einlesens (siehe Bild 7).<\/p>\n <\/b><\/p>\n Bild 6: Das Formular frmScan<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 7: Statuszeile während des Suchvorgangs<\/span><\/b><\/p>\n Das Ende des Suchvorgangs erkennen Sie in der Statuszeile des Formulars, die dann wieder den Schriftzug Bereit! anzeigt. <\/p>\n Die eingelesenen Dateien sind danach mit den entsprechenden Angaben in der Tabelle tblFiles gespeichert (siehe Bild 8).<\/p>\n Suchen<\/b><\/p>\n Die Suche nach Dateien erfolgt vom Formular frmFind aus. Geben Sie in das Feld Suchen das gewünschte Suchkriterium ein und klicken Sie anschließend auf die Schaltfläche Suchen (siehe Bild 9).<\/p>\n <\/b><\/p>\n Bild 8: Eingelesene Dateien in der Tabelle tblFiles<\/span><\/b><\/p>\n Der FileScanner erlaubt die Anwendung folgender Suchkriterien:<\/p>\n Das Suchergebnis<\/b><\/p>\n Das Suchergebnis wird als Datenblatt angezeigt (siehe Bild 9). Die Anzeige beschränkt sich hierbei auf den Verzeichnis- und Dateinamen.<\/p>\n <\/p>\n Verzeichnis öffnen<\/b><\/p>\n Ein Doppelklick in ein beliebiges Feld der Spalte Verzeichnis öffnet dieses Verzeichnis im Windows Explorer.<\/p>\n Einen entsprechenden Hinweis finden Sie in der Statuszeile unten im Formular. <\/p>\n Datei öffnen<\/b><\/p>\n Ein Doppelklick auf einen Dateinamen öffnet die Datei zusammen mit der dazugehörigen Anwendung. Voraussetzung dafür ist allerdings, dass diese Dateiextension auch mit einer Anwendung verknüpft ist.<\/p>\n Ein wesentlicher Teil der Funktionalität des FileScanners ist mit Hilfe von API-Funktionen realisiert, die Sie in den folgenden Abschnitt kennen lernen.<\/p>\n <\/b><\/p>\n Bild 9: Suchergebnis im Unterformular<\/span><\/b><\/p>\n Quellcode 1<\/b><\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3<\/b><\/p>\n Die Funktion FindFirstFile<\/b><\/p>\n Die Funktion FindFirstFile beginnt eine Dateisuche und gibt Informationen über die erste gefundene Datei zurück. Dabei sucht die Funktion nach dem Dateinamen, der durch die Wildcards * oder ergänzt werden kann. Das Suchergebnis wird in der Variablen lpFindFileData gespeichert.<\/p>\n Weiterhin gibt die Funktion ein Such-Handle zurück, welches bei Suche nach weiteren Suchtreffern mit Hilfe der Funktion FindNextFile benutzt wird.<\/p>\n Die Deklaration der FindFirstFile-Funktion finden Sie in Quellcode 1.<\/p>\n Die FunktionFindNextFile<\/b><\/p>\n Die Funktion FindNextFile setzt eine mit der Funktion FindFirstFile begonnene Suche fort und speichert Informationen über weitere Suchtreffer ebenfalls in der Variablen lpFindFileData. Wenn alle Dateien eines Verzeichnisses aufgelistet werden sollen, muss einmal die Funktion FindFirstFile und danach mehrmals die Funktion FindNextFile aufgerufen werden. Sie finden die Deklaration der Funktion in Quellcode 2.<\/p>\n Die Struktur _WIN32_FIND_DATA<\/b><\/p>\n Die beiden Funktionen FindFirstFile und FindNextFile verwenden die Struktur WIN32_FIND_DATA zur Ablage des Suchergebnisses. Eine solche Struktur muss genau wie eine API-Funktion selbst im Deklarationsteil eines VBA-Moduls deklariert werden. Sie finden die Deklaration der Struktur in Quellcode 3.<\/p>\n Sie erkennen hier die Variablen zur Speicherung der üblichen Dateiattribute wie Dateiname, letzter Zugriff usw.<\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Quellcode 6<\/b><\/p>\n Quellcode 7<\/b><\/p>\n Der Vorteil bei der Verwendung einer solchen Struktur besteht darin, die benötigten Informationen quasi am Stück in einem Rutsch zu übergeben.<\/p>\n Sie finden die Deklaration der Funktionen und Strukturen im Modul modTools der Beispieldatenbank. <\/p>\n Die FunktionFindClose<\/b><\/p>\n Die Funktion FindClose beendet eine mit der Funktion FindFirstFile begonnene Suche und schließt das Such-Handle. Dies gibt belegte Speicher-Bereiche unter Windows wieder frei und ist daher sehr wichtig (s. Quellcode 4).<\/p>\n Die FunktionFileTimeToSystem<\/b><\/p>\n Die Funktion FileTimeToSystemTime konvertiert die unterschiedlichen Datums-\/Zeitformate von Datei- und Systemzeit (s. Quellcode 5).<\/p>\n Sie verwendet dabei die Strukturen FILETIME und SYSTEMTIME, die Sie ebenfalls im Deklarationsbereich des Moduls modTools der Beispieldatenbank finden. Diese Funktion wird später dazu eingesetzt, das im Windows-API verwendete Format für Datums- und Zeitangaben in das VBA-Format zu konvertieren.<\/p>\n Die FunktionShellExecute<\/b><\/p>\n Die Funktion ShellExecute öffnet oder führt eine Datei unter der Windows-Benutzeroberfläche aus (s. Quellcode 6). Falls es sich dabei um eine nicht ausführbare Datei handelt, wird diese Datei mit der standardmäßig verknüpften Windows-Anwendung geöffnet.<\/p>\n Quellcode 8<\/b><\/p>\n Quellcode 9<\/b><\/p>\n In diesem Abschnitt lernen Sie den VBA-Code des FileScanners näher kennen. Der vollständige Code befindet sich im Klassenmodul clsFileScanner und im Modul modTools der Beispieldatenbank.<\/p>\n Quellcode 10<\/b><\/p>\n Dateien und Verzeichnisse einlesen<\/b><\/p>\n Vor der ersten Suche nach Dateien muss die FileScanner-Datenbank zunächst einmal mit den dazu notwendigen Daten – den Datei- und Verzeichnisnamen – gefüllt werden.<\/p>\n Dieser Vorgang wird vom Formular frmScan aus gestartet. Nach einem Klick auf die Schaltfläche Start wird die Ereignisprozedur btnStartScan_Click aufgerufen (s. Quellcode 7).<\/p>\n Die Prozedur überprüft zunächst, ob ein Startverzeichnis angegeben bzw. ob dieses auch gültig ist. Falls nein, erhält der Benutzer entsprechende Warnmeldungen, wie beispielsweise die in Bild 10.<\/p>\n <\/b><\/p>\n Bild 10: Warnmeldung<\/span><\/b><\/p>\n Anschließend wird der String, der den Dateipfad enthält, auf einen abschließenden Backslash untersucht und dieser ggf. abgeschnitten. Dies ist erforderlich, da der FileScanner Verzeichnisnamen generell ohne Backslash erwartet, viele Benutzer dieses jedoch mit eingeben (z.B. C:\\ anstelle von C:).<\/p>\n Danach wird noch die Start-Schaltfläche deaktiviert und die Abbrechen-Schaltfläche aktiviert. Der eigentliche Einlesevorgang beginnt mit dem Instanzieren eines neuen Objekts der Klasse clsFileScanner sowie dem Aufruf der hier enthaltenen Methode StartUpdate (s. Quellcode 8).<\/p>\n Quellcode 11<\/b><\/p>\n Quellcode 12<\/b><\/p>\n Ausgehend vom ausgewählten Root-Verzeichnis ruft die Prozedur StartUpdate einmal die Methode UpdateDirectory auf, die das Verzeichnis durchsucht und alle Dateien in die Datenbank einliest (s. Quellcode 9).<\/p>\n Wenn die Prozedur ein Unterverzeichnis ermittelt, ruft sie sich selbst rekursiv unter Angabe dieses Unterverzeichnisses auf.<\/p>\n Sollte die Prozedur dagegen eine Datei ausfindig machen, ruft sie die Prozedur UpdateFile auf, die letztendlich den entsprechenden Eintrag in der Datenbank erzeugt (s. Quellcode 10).<\/p>\n Extrem große Dateien können zu einem Fehler führen, da der Wertebereich des Datentyps Double überschritten werden könnte. Diese Problematik wird bei dieser Lösung jedoch nicht gesondert berücksichtigt. <\/p>\n Möglicherweise werden Sie sich jetzt fragen, warum zum Einlesen der Verzeichnisse nicht die in Access vorhandene Dir-Funktion verwendet wird. Der Grund: Die Dir-Funktion kann nur rein linear, aber nicht rekursiv arbeiten. Das heißt konkret: Bei einem erneuten Aufruf der Dir-Funktion – beispielsweise in einem Unterverzeichnis, kann in dem Hauptverzeichnis nicht wieder an der gleichen Stelle aufgesetzt und der Vorgang fortgesetzt werden.<\/p>\n Hilfsfunktionen<\/b><\/p>\n Beim Scannen der Verzeichnisse und Dateien sind zwei Hilfsfunktionen zwingend notwendig: Die Funktionen FileTimeToVBTime und NTString.<\/p>\n Die Funktion FileTimeToVBTime (s. Quellcode 11) konvertiert ein File-Datumsformat in ein System-Datumsformat und danach wiederum in das VBA-Format. Zum Einsatz kommt hierbei die bereits vorgestellte API-Funktion FileTimeToSystemTime.<\/p>\n Die Funktion NTString konvertiert einen Null-terminated-String, so wie er beim Windows-API üblich ist, in einen Visual Basic-String (s. Quellcode 12).<\/p>\n API-Funktionen erwarten Zeichenketten in der C-Syntax, das heißt in Form eines einfachen Zeigers auf eine Folge von Bytes. Das Ende ist hierbei durch den Wert 0 gekennzeichnet.<\/p>\n In VB dagegen werden Strings mit dem so genannten BSTR-Datentyp verwaltet. Dabei wird der Unicode-Zeichensatz mit zwei Byte pro Zeichen verwendet. Unmittelbar vor Beginn des Strings steht dabei ein Wert, der die Länge der Zeichenkette angibt. Die Prozedur sucht den ersten Null-Code in der Zeichenkette und nimmt dann eine entsprechende Konvertierung mittels LeftB$-Funktion vor.<\/p>\n Quellcode 13<\/b><\/p>\n Löschen nicht mehr existierenderDateien aus der Datenbank<\/b><\/p>\n Um möglichst einfach herauszufinden, welche Dateien nicht mehr existieren und aus der Datenbank entfernt werden müssen, wird das Feld IsExisting aller Datenbankeinträge zu dem Startverzeichnis des Scans (beispielsweise: \\\\MeinServer\\DataCenter) beim Start des Scans auf den Wert False gesetzt. Werden Sie während des Scans gefunden, wird das Feld wieder auf den Wert True gesetzt. <\/p>\n Alle Files, die nach dem Scan mit dem Wert IsExisting=False übrig bleiben und zu dem angegebenen Startverzeichnis gehören, werden nach dem Scan mit einer Aktionsabfrage gelöscht. Den entsprechenden Code-Ausschnitt finden Sie in der Prozedur StartUpdate aus dem Klassenmodul clsFileScanner.<\/p>\n Nachdem Sie nun die Arbeitsweise des Scanners kennen gelernt haben, erläutern wir Ihnen nun die Funktion des Suchformulars. Dateien suchen<\/p>\n Beim Start einer Dateisuche im Formular frmFind ruft ein Klick auf die Schaltfläche btnStartFind die gleichnamige Ereignisprozedur auf (s. Quellcode 13). Die Prozedur überprüft zunächst, ob überhaupt ein Suchkriterium vorhanden ist, und zeigt gegebenenfalls eine entsprechende Fehlermeldung an. Anderenfalls wird aus dem Suchtext ein SQL-String zusammengesetzt und dem Unterformular frmFind_Sub als Recordsource zugewiesen. Die dabei verwendete Hilfsfunktion Quote – Modul modTools – sorgt mit Hilfe des Ausdrucks<\/p>\n für die richtige Syntax der Hochkommata im SQL-String, falls der Suchbegriff ebenfalls Hochkommata enthalten sollte.<\/p>\n Das ist außerordentlich praktisch, weil gerade die richtige Syntax der Hochkommata in SQL-Strings oftmals Probleme bereitet und deshalb entsprechend fehleranfällig ist.<\/p>\n Verzeichnis im Explorer öffnen<\/b><\/p>\n Beim Doppelklick auf ein Verzeichnis im Feld Verzeichnis des Suchergebnisses öffnet der Windows-Explorer das betreffende Verzeichnis in einem Explorer-Fenster (siehe Bild 11).<\/p>\n Dafür ist der Aufruf der Shell-Funktion verantwortlich. Diese öffnet einfach die Datei explorer.exe, der das betreffende Verzeichnis aus dem Feld DirName übergeben wird:<\/p>\n Datei mit Anwendungsprogrammöffnen<\/b><\/p>\n <\/b><\/p>\n![](\"..\/fileadmin\/_temp_\/{C3B82FCC-8ED7-4991-B5D6-D89E7402C6D8}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C3B82FCC-8ED7-4991-B5D6-D89E7402C6D8}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C3B82FCC-8ED7-4991-B5D6-D89E7402C6D8}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C3B82FCC-8ED7-4991-B5D6-D89E7402C6D8}\/pic005.png\")
<\/p>\nPraxis-Tipp<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{C3B82FCC-8ED7-4991-B5D6-D89E7402C6D8}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C3B82FCC-8ED7-4991-B5D6-D89E7402C6D8}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{C3B82FCC-8ED7-4991-B5D6-D89E7402C6D8}\/pic008.png\")
<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{C3B82FCC-8ED7-4991-B5D6-D89E7402C6D8}\/pic009.png\")
<\/p>\nDeclare Function FindFirstFile Lib \"kernel32.dll\" _ Alias \"FindFirstFileA\" (ByVal lpFileName As _ String, lpFindFileData As WIN32_FIND_DATA) As Long<\/pre>\n
Declare Function FindNextFile Lib \"kernel32.dll\" _ Alias \"FindNextFileA\" (ByVal hFindFile As Long, _ lpFindFileData As WIN32_FIND_DATA) As Long<\/pre>\n
Public Type WIN32_FIND_DATA\r\n dwFileAttributes As Long\r\n ftCreationTime As FileTime\r\n ftLastAccessTime As FileTime\r\n ftLastWriteTime As FileTime\r\n nFileSizeHigh As Long\r\n nFileSizeLow As Long\r\n dwReserved0 As Long\r\n dwReserved1 As Long\r\n cFileName As String * 260\r\n cAlternate As String * 14\r\nEnd Type<\/pre>\n
Declare Function FindClose Lib \"kernel32.dll\" _ (ByVal hFindFile As Long) As Long<\/pre>\n
Declare Function FileTimeToSystemTime Lib _ \"kernel32.dll\" (lpFileTime As FILETIME, _ lpSystemTime As SYSTEMTIME) As Long<\/pre>\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<\/pre>\n
Private Sub btnStartScan_Click()\r\n Me.txtStartDir.Value = Trim(Me.txtStartDir.Value)\r\n If Len(Me.txtStartDir.Value) = 0 Then\r\n MsgBox \"Bitte geben Sie ein Startverzeichnis \" _ & \"an!\"\r\n Exit Sub\r\n End If\r\n On Error Resume Next\r\n ChDir Me.txtStartDir.Value\r\n If Err.Number <> 0 Then\r\n MsgBox \"Das Start-Verzeichnis ist ungültig\"\r\n Exit Sub\r\n End If\r\n On Error GoTo 0\r\n If Right(Me.txtStartDir.Value, 1) = \"\\\" Then\r\n Me.txtStartDir.Value = _ Left(Me.txtStartDir.Value, _ Len(Me.txtStartDir.Value) - 1)\r\n End If\r\n Me.txtStartDir.SetFocus\r\n Me.btnStartScan.Enabled = False\r\n Me.btnCancel.Enabled = True\r\n Set m_fs = New clsFileScanner\r\n m_fs.StartUpdate (Me.txtStartDir.Text)\r\n Me.btnStartScan.Enabled = True\r\n Me.btnCancel.Enabled = False\r\n Me.lblStatus.Caption = \"Bereit!\"\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
Public Sub StartUpdate(RootDirectory As String)\r\n If Len(RootDirectory) = 0 Then\r\n Err.Raise vbObjectError + 1, \"StartUpdate\", \"RootDirectory erforderlich\"\r\n End If\r\n m_RootDirectory = RootDirectory\r\n m_Cancel = False\r\n CurrentProject.Connection.Execute _ (\"UPDATE tblFiles SET IsExisting=0 WHERE RootDir=\" + Quote(m_RootDirectory))\r\n If m_Cancel = False Then\r\n UpdateDirectory m_RootDirectory\r\n End If\r\n If m_Cancel = False Then\r\n CurrentProject.Connection.Execute (\"DELETE * FROM tblFiles \" _ & \"WHERE IsExisting=0 AND RootDir=\" + Quote(m_RootDirectory))\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub UpdateDirectory(Directory As String)\r\n Dim hFindFile As Long\r\n Dim FindFileData As WIN32_FIND_DATA\r\n Dim Filename As String\r\n hFindFile = FindFirstFileA(Directory + \"\\*.*\", FindFileData)\r\n If Not hFindFile = -1 Then\r\n Do\r\n If m_Cancel = True Then Exit Sub\r\n Filename = NTString(FindFileData.cFileName)\r\n If FindFileData.dwFileAttributes And vbDirectory Then\r\n If Filename <> \".\" And Filename <> \"..\" Then\r\n UpdateDirectory Directory & \"\\\" + Filename\r\n End If\r\n Else\r\n UpdateFile Directory, FindFileData\r\n End If\r\n Loop While FindNextFileA(hFindFile, FindFileData)\r\n End If\r\n FindClose hFindFile\r\nEnd Sub<\/pre>\n
Private Sub UpdateFile(Directory As String, FindFileData As WIN32_FIND_DATA)\r\n Dim rstFiles As New ADODB.Recordset\r\n Dim Filename As String\r\n Filename = NTString(FindFileData.cFileName)\r\n RaiseEvent StatusChange(Directory + \"\\\" + Filename)\r\n With rstFiles\r\n .ActiveConnection = CurrentProject.Connection\r\n .CursorLocation = adUseClient\r\n .LockType = adLockOptimistic\r\n .CursorType = adOpenDynamic\r\n .Source = \"SELECT * FROM tblFiles WHERE DirName=\" & Quote(Directory) _ & \" AND Filename=\" + Quote(Filename)\r\n .Open\r\n If .RecordCount = 0 Then\r\n .AddNew\r\n End If\r\n .Fields(\"RootDir\") = m_RootDirectory\r\n .Fields(\"DirName\") = Directory\r\n .Fields(\"FileName\") = Filename\r\n .Fields(\"CreationTime\") = FileTimeToVBTime(FindFileData.ftCreationTime)\r\n .Fields(\"LastAccessTime\") = FileTimeToVBTime(FindFileData.ftLastAccessTime)\r\n .Fields(\"FileSize\") = (FindFileData.nFileSizeHigh * (&HFFFFFFFF + 1)) + _ FindFileData.nFileSizeLow\r\n .Fields(\"IsExisting\") = True\r\n .Update\r\n End With\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{C3B82FCC-8ED7-4991-B5D6-D89E7402C6D8}\/pic010.png\")
<\/p>\nPrivate Function FileTimeToVBTime(FileTime As _ FileTime) As Date\r\n Dim S As SYSTEMTIME\r\n FileTimeToSystemTime FileTime, S\r\n FileTimeToVBTime = DateSerial(S.wYear, S.wMonth, _ S.wDay) + TimeSerial(S.wHour, S.wMinute, _ S.wSecond)\r\nEnd Function<\/pre>\n
Private Function NTString(InString As String) As String\r\n NTString = LeftB$(InString, InStrB(InString, _ vbNullChar))\r\nEnd Function<\/pre>\n
Hinweis<\/h3>\n
Die Dir-Funktion<\/h3>\n
Die Funktion FileTimeToVBTime<\/h3>\n
Die Funktion NTString<\/h3>\n
Private Sub btnStartFind_Click()\r\n If Len(Me.txtFindText.Value) = 0 Or IsNull(Me.txtFindText.Value) Then\r\n MsgBox \"Bitte geben Sie einen Suchtext ein!\"\r\n Else\r\n Dim SQL As String\r\n SQL = \"SELECT FileID, DirName, FileName FROM tblFiles \"\r\n SQL = SQL + \" WHERE Filename LIKE \" + Quote(\"*\" + Me.txtFindText.Value + \"*\")\r\n SQL = SQL + \" OR DirName LIKE \" + Quote(\"*\" + Me.txtFindText.Value + \"*\")\r\n Me.Sub.Form.RecordSource = SQL\r\n Me.Sub.Requery\r\n Me.Sub.Visible = True\r\n End If\r\nEnd Sub<\/pre>\n
Quote = \"''\" + Replace(InString, \"''\", \"''''\") + \"''\"<\/pre>\n
Shell \"explorer.exe \" + Me!DirName, vbNormalFocus<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{C3B82FCC-8ED7-4991-B5D6-D89E7402C6D8}\/pic011.png\")
<\/p>\n