<\/p>\n
Autor: André Minhorst, Duisburg<\/p>\n
<\/b>!<\/p>\n
Bei vielen Anwendungen ist es notwendig, Dateien oder Verzeichnisse auszuwählen und auf diese zuzugreifen. Das FileSystemObject der Scripting-Laufzeitbibliothek bietet eine Reihe von Methoden und Eigenschaften an, die praktisch jeden Zugriff auf das Filesystem von Windows erlauben. Im vorliegenden Beitrag lernen Sie einige interessante Beispiele für den Einsatz des FileSystemObjects in Zusammenarbeit mit Access kennen. Dazu basteln Sie sich einen kleinen Windows-Dateimanager in Form eines Access-Formulars, mit dem Sie bequem aus Ihrer Datenbankanwendung heraus kleinere Operationen wie z. B. das öffnen, Kopieren, Verschieben oder Löschen von Dateien und Verzeichnissen ausführen können.<\/b><\/p>\n
Das FileSystemObject enthält Objekte, Methoden und Eigenschaften für den Zugriff auf die Laufwerke, Ordner und Dateien des Filesystems von Windows.<\/p>\n
Sie können Informationen über alle genannten Objekte ermitteln und Ordner und Dateien erstellen, kopieren, ausschneiden, einfügen, bearbeiten und löschen.<\/p>\n
Prinzipiell können Sie durch die Programmierung mit dem FileSystemObject alle Aufgaben erledigen, die auch der Windows-Explorer (siehe Bild 1) zur Verfügung stellt. <\/p>\n
![](\"..\/fileadmin\/_temp_\/{EA54F8E8-2249-4691-9E46-BB666C85DC3B}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Der klassische Windows-Explorer<\/span><\/b><\/p>\n Wenn Sie die Methoden und Eigenschaften des FileSystemObjects mit den Möglichkeiten zusammenführen, die Access-Formulare bieten, können Sie sich Ihren eigenen kleinen Dateimanager mit Access erstellen und müssen nicht mehr auf die Windows-eigenen Möglichkeiten zurückgreifen.<\/p>\n Dies ist vor allem interessant, wenn Sie umfangreichere Datenbanken haben, die den gesamten Funktionsumfang abdecken, den Ihre Mitarbeiter benötigen. <\/p>\n Sie können den Dateimanager dann in die Access-Datenbank integrieren und müssen für einfache File-Operationen keine externe Anwendung mehr öffnen.<\/p>\n Außerdem können Sie nach Belieben spezielle Funktionen hinzufügen, z. B. das Ausdrucken einer Dateiliste auf Papier (beispielsweise für die Verwendung als CD-Cover) oder die vom Windows-Explorer nicht unterstützte Funktion, die Größe aller Verzeichnisse eines Laufwerks auf einen Blick anzuzeigen.<\/p>\n Das ist vor allem interessant, wenn Sie sich wieder einmal fragen, in welchen Verzeichnissen eigentlich die ganzen Daten stecken, die Ihre Festplatte hoffnungslos verstopfen. Mit dem Windows-Explorer müssen Sie hierzu nämlich die Eigenschaften jedes einzelnen Verzeichnisses anzeigen, während Sie mit einer selbst programmierten Funktion schnell die gewünschten Daten ermitteln können.<\/p>\n Um die Methoden und Eigenschaften des FileSystemObjects verwenden zu können, müssen Sie einen Verweis auf die entsprechende Bibliothek erstellen. Der Name der Bibliothek lautet Windows Scripting Runtime. Wie Sie einen Verweis auf eine Bibliothek erstellen, erfahren Sie in dem Beitrag Setzen von Verweisen auf Bibliotheken. Falls Sie diesen Verweis nicht finden, ist möglicherweise der Windows Scripting Host nicht installiert oder aktiviert: In dem Fall finden Sie die benötigte Software im Internet unter www.microsoft.com\/msdownload\/vbscript\/scripting.asp. <\/p>\n <\/b><\/p>\n Bild 2: Das Formular frmDateimanager mit seinen Steuerelementen in der Entwurfsansicht<\/span><\/b><\/p>\n Als Beispiel für die Anwendung der Eigenschaften und Methoden des FileSystemObjects erstellen Sie ein Formular, mit dem Sie Verzeichnisse und Dateien anzeigen sowie die unterschiedlichsten Operationen mit diesen Elementen durchführen können.<\/p>\n Erstellen Sie zunächst ein Beispielformular, von dem aus Sie die unterschiedlichen Aktionen ausführen und Laufwerke, Verzeichnisse und Dateien anzeigen können.<\/p>\n Stellen Sie die Eigenschaften Bildlaufleisten, Datensatzmarkierer, Navigationsschaltflächen und Trennlinien auf den Wert Nein ein.<\/p>\n Erstellen Sie anschließend einige Steuerelemente auf dem neuen Formular und ordnen Sie diese wie in Bild 2 an. In Tabelle 1 finden Sie eine Liste der Steuerelemente mit ihren Namen und Funktionen.<\/p>\n Das Kombinationsfeld cboLaufwerke soll alle Laufwerke des Filesystems anzeigen. Da es somit nicht an eine bestimmte Datenherkunft gebunden ist, sondern erst mit den gewünschten Werten gefüllt wird, müssen Sie den Wert der Eigenschaft Herkunftsart von Tabelle\/Abfrage auf Wertliste ändern.<\/p>\n Steuerelement<\/b><\/p>\n<\/td>\n Funktion<\/b><\/p>\n<\/td>\n<\/tr>\n cboLaufwerke<\/p>\n<\/td>\n Auswahl des gewünschten Laufwerks<\/p>\n<\/td>\n<\/tr>\n txtVerzeichnis<\/p>\n<\/td>\n Anzeige des aktuellen Verzeichnisses<\/p>\n<\/td>\n<\/tr>\n cmdNeuerOrdner<\/p>\n<\/td>\n Schaltfläche zum Anlegen eines neuen Ordners<\/p>\n<\/td>\n<\/tr>\n cmdLoeschen<\/p>\n<\/td>\n Schaltfläche zum Löschen des ausgewählten Objekts aus lstOrdner oder lstDateien<\/p>\n<\/td>\n<\/tr>\n cmdEinfuegen<\/p>\n<\/td>\n Schaltfläche zum Einfügen der mit cmdKopieren oder cmdAusschneiden markierten Datei<\/p>\n<\/td>\n<\/tr>\n cmdKopieren<\/p>\n<\/td>\n Schaltfläche zur Auswahl einer zu kopierenden Datei<\/p>\n<\/td>\n<\/tr>\n cmdAusschneiden<\/p>\n<\/td>\n Schaltfläche zur Auswahl einer auszuschneidenden Datei<\/p>\n<\/td>\n<\/tr>\n lstOrdner<\/p>\n<\/td>\n Liste der Ordner, die sich in dem Verzeichnis in txtVerzeichnis befinden<\/p>\n<\/td>\n<\/tr>\n lstDateien<\/p>\n<\/td>\n Liste der Dateien, die sich in dem Verzeichnis in txtVerzeichnis befinden<\/p>\n<\/td>\n<\/tr>\n lblVerzeichnisse, lblDateien, lblGroesse, lblAenderungsdatum<\/p>\n<\/td>\n Beschriftungsfelder, die bei Doppelklick einen Sortiervorgang auslösen<\/p>\n<\/td>\n<\/tr>\n txtSortVerzeichnisname, txtSortDateiname, txtSortGroesse, txtSortAenderung<\/p>\n<\/td>\n Versteckte Textfelder zum Speichern der aktuellen Sortierung der Listenspalten<\/p>\n<\/td>\n<\/tr>\n txtAktion<\/p>\n<\/td>\n Verstecktes Textfeld zum Speichern der auszuführenden Aktion, also Kopieren oder Ausschneiden<\/p>\n<\/td>\n<\/tr>\n txtMarkiert<\/p>\n<\/td>\n Verstecktes Textfeld zum Speichern ausgewählter Dateien\/Ordner<\/p>\n<\/td>\n<\/tr>\n txtSortierfeld<\/p>\n<\/td>\n Verstecktes Textfeld zum Speichern der zu sortierenden Listenspalte<\/p>\n<\/td>\n<\/tr>\n txtTyp<\/p>\n<\/td>\n Verstecktes Textfeld zum Festlegen, ob Datei oder Verzeichnis ausgewählt ist<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Steuerelemente des Formulars frmDateimanager<\/b><\/p>\n Um das Kombinationsfeld mit den nötigen Daten zu füllen, benötigen Sie eine Prozedur, die beim öffnen des Formulars ausgelöst wird. <\/p>\n Die Prozedur (s. Quellcode 1) deklariert zunächst die Objektvariablen für das FileSystemObject namens objFSO und für ein Drive-Objekt namens objDrive sowie die Zeichenkette, die zum Zusammenstellen der Wertliste verwendet wird.<\/p>\n Anschließend wird die FileSystemObject-Objektvariable initiiert. In einer For Each-Schleife werden alle Laufwerke des FileSystemObjects durchlaufen und die Laufwerksbuchstaben mit Hilfe der Eigenschaft DriveLetter ermittelt und an die String-Variable strLaufwerke angehängt.<\/p>\n Für das Diskettenlaufwerk hängt die Anweisung beispielsweise den Ausdruck ;a;a: an die Zeichenkette strLaufwerke an. Nach dem späteren Abschneiden des führenden Semikolons bliebe also a;a: über.<\/p>\n Die zweimalige Verwendung der Eigenschaft DriveLetter und damit des Laufwerkbuchstabens erfolgt nicht zufällig: Der Buchstabe soll einmal unsichtbar als Wert der gebundenen Spalte und einmal als Ausgabewert sichtbar im Kombinationsfeld untergebracht werden. Den Grund für die Verwendung des Laufwerkbuchstabens als Wert der gebundenen Spalte erfahren Sie weiter unten.<\/p>\n Die nachfolgende Anweisung fügt zusätzlich für jedes Laufwerk die Art des Datenträgers an die Zeichenkette an. Anschließend wird der Inhalt der String-Variablen dem Kombinationsfeld zugewiesen. Damit das gefüllte Kombinationsfeld beispielsweise wie in Bild 3 aussieht, müssen Sie die erste Spalte, die den gebundenen Wert enthält, aus- und die zweite Spalte einblenden. Dazu ändern Sie die Werte der Eigenschaften Spaltenanzahl auf 2 und Spaltenbreiten auf 0cm;3cm ab.<\/p>\n Natürlich können Sie die Anzeige noch ein wenig verfeinern – z. B. durch die Ausgabe des Datenträgernamens, des freien und des gesamt verfügbaren Speicherplatzes, des Filesystems (NTFS, Fat usw.) und anderer Eigenschaften.<\/p>\n Für das Auslesen dieser Eigenschaften ist die Kenntnis des Laufwerktyps erforderlich, da verschiedene Eigenschaften nur für manche Laufwerktypen zur Verfügung stehen. So können Sie beispielsweise nicht das Filesystem eines Netzlaufwerkes ermitteln. <\/p>\n Tabelle 2 enthält eine Auflistung der gängigsten Laufwerktypen und deren Konstanten.<\/p>\n Zu jedem Laufwerk gibt es unterschiedliche Arten von Informationen – für eine lokale Festplatte gibt z. B. die Eigenschaft VolumeName, für ein Netzlaufwerk die Eigenschaft ShareName die Bezeichnung des Laufwerks an.<\/p>\n Quellcode 1<\/b><\/p>\n <\/b><\/p>\n Bild 3: Auswahl eines Laufwerks per Kombinationsfeld<\/span><\/b><\/p>\n Laufwerktyp<\/b><\/p>\n<\/td>\n Konstante(Wert)<\/b><\/p>\n<\/td>\n<\/tr>\n Unbekannt<\/p>\n<\/td>\n Unknown (0)<\/p>\n<\/td>\n<\/tr>\n Diskettenlaufwerk<\/p>\n<\/td>\n Removable (1)<\/p>\n<\/td>\n<\/tr>\n Lokale Festplatte<\/p>\n<\/td>\n Fixed (2)<\/p>\n<\/td>\n<\/tr>\n Netzlaufwerk<\/p>\n<\/td>\n Remote (3 )<\/p>\n<\/td>\n<\/tr>\n CD-Laufwerk u. ä.<\/p>\n<\/td>\n CDRom (4)<\/p>\n<\/td>\n<\/tr>\n Ram-Disk<\/p>\n<\/td>\n RamDisk (5)<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 2: Laufwerktypen und deren Konstanten<\/b><\/p>\n <\/b><\/p>\n Bild 4: Anzeige von Laufwerksinformationen<\/span><\/b><\/p>\n Die unterschiedlichen Eigenschaften sollen in dafür vorgesehenen Textfeldern dargestellt werden (siehe Bild 4). Da die Zuweisung der Eigenschaften zu den Textfeldern relativ trivial ist, wird sie an dieser Stelle nicht genauer beschrieben.<\/p>\n Ein Laufwerk kann Ordner und\/oder Dateien enthalten. In den Ordnern können sich weitere Unterordner und\/oder Dateien befinden. ähnlich wie im Windows Explorer sollen nun zwei Fenster verwendet werden. Das linke Fenster enthält alle des im Textfeld txtVerzeichnisse angegebenen Verzeichnisses enthaltene Ordner. Das rechte Fenster soll alle Dateien des im Textfeldes txtVerzeichnisse angegebenen Ordners anzeigen.<\/p>\n Die Ansicht von Verzeichnissen und Dateien ist eine perfekte Anwendung für das Treeview-Control, das Sie in der vorherigen Ausgabe von Access im Unternehmen kennen gelernt haben. Da allerdings nicht jeder Leser im Besitz dieses Steuerelements ist, finden Sie hier eine Lösung, die zwar nicht so komfortabel ist, aber keine weiteren Steuerelemente benötigt. <\/p>\n <\/p>\n Verzeichnisse anzeigen<\/b><\/p>\n Die Anzeige der Verzeichnisse ist nicht unbedingt trivial, da es unterschiedliche Möglichkeiten gibt.<\/p>\n Die vom Programmieraufwand her einfachste Möglichkeit ist das Speichern der Verzeichnisse in einer Tabelle, die dem Listenfeld als Datenherkunft dient und anschließend wieder gelöscht wird. Der Nachteil ist, dass die Datenbank sich ohne regelmäßiges Komprimieren schnell vergrößern wird.<\/p>\n Die zweite Möglichkeit ist das Speichern der durch Semikola getrennten Verzeichnisse in einer Zeichenkette. Das Listenfeld kann die Zeichenkette als Wertliste anzeigen. Wertlisten sind jedoch auf 2.048 Zeichen beschränkt.<\/p>\n Da aber die Anzahl der anzuzeigenden Verzeichnisse und damit auch die Zeichenzahl theoretisch nur durch den Festplattenspeicher begrenzt ist, fällt diese Möglichkeit aus.<\/p>\n Die dritte und hier angewendete Möglichkeit besteht in dem Einlesen der Verzeichnisse in eine temporäre Datensatzgruppe. Diese erlaubt gleichzeitig die einfache Sortierung der Einträge nach unterschiedlichen Kriterien. Zur übertragung der Daten in das Listenfeld verwenden Sie eine Callback-Funktion.<\/p>\n Die Funktionsweise und Anwendung von Callback-Funktionen wird detailliert im Beitrag Kombinations- und Listenfelder bevölkern der vorliegenden Ausgabe von Access im Unternehmen erläutert. <\/p>\n Temporäre Datensatzgruppen – in diesem speziellen Fall ohne Bindung an eine Datenherkunft – sind mit DAO nicht möglich. Daher sollten Sie, falls Sie mit Access 97 arbeiten, die ADO-Bibliothek durch Setzen eines entsprechenden Verweises in die Datenbank einbinden. Wie dies funktioniert, erfahren Sie im Beitrag Verweise auf Bibliotheken setzen, den Sie auf der Heft-CD finden. <\/p>\n Einmal in eine Datensatzgruppe eingelesen, können Sie beliebige Sortierungen der Daten durchführen – z. B. nach dem Alphabet.<\/p>\n Quellcode 2 enthält die Funktion VerzeichnisseEinlesen. Interessant ist der Initialisierungsteil der Callback-Funktion. Nach dem Deklarationsteil weist die Funktion der Variablen Pfad zunächst das aktuell im Textfeld txtVerzeichnis angezeigte Verzeichnis zu und ergänzt den Wert ggf. um einen Backslash (\\). Anschließend erstellt sie eine temporäre Datensatzgruppe namens rstVerzeichnisse mit den zwei Feldern ID und Verzeichnisname.<\/p>\n Die Anweisungen innerhalb der nun folgenden For Each-Schleife lesen alle Unterverzeichnisse des in der Variablen Pfad gespeicherten Verzeichnisses in die Datensatzgruppe ein.<\/p>\n Die folgende If Then Else-Abfrage überprüft, wie die Prozedur die Daten sortieren soll. Beim ersten Aufruf der Funktion führt diese eine aufsteigende Sortierung durch.<\/p>\n Nach der Sortierung erfolgt eine Durchnummerierung der Datensätze im Feld ID. Dies ist deshalb wichtig, weil die Callback-Funktion die Datensätze später über die ID ausliest.<\/p>\n Das Einlesen der Datensätze erfolgt in dem durch die Anweisung Case acLBGetValue eingeleiteten Teil der Funktion. Dieser Teil wird für jeden Datensatz einmal aufgerufen.<\/p>\n Quellcode 2<\/b><\/p>\n Die Funktion filtert zunächst die Datensatzgruppe nach der aktuellen ID und fügt dem Listenfeld anschließend den Namen des entsprechenden Verzeichnisses hinzu.<\/p>\n <\/b><\/p>\n Bild 5: Anzeige von Verzeichnissen und Dateien<\/span><\/b><\/p>\n Damit die Funktion ihren Dienst tut und das entsprechende Listenfeld mit den Daten füllt, müssen Sie den Funktionsnamen für die Eigenschaft Herkunftsart eintragen. Anschließend sollte die Anzeige der Daten z. B. wie in Bild 5 aussehen.<\/p>\n Dateien anzeigen<\/b><\/p>\n Das Listenfeld lstDateien soll alle Dateien des im Textfeld txtVerzeichnis angezeigten Verzeichnisses anzeigen.<\/p>\n Auch dieses Listenfeld hat eine Callback-Funktion als Datenherkunft. Die Funktion heißt DateienEinlesen und ist fast mit der soeben beschriebenen Funktion identisch. Es gibt lediglich die folgenden Unterschiede:<\/p>\n Der Aufbau und die Funktionsweise der Funktion DateienEinlesen entsprechen weitgehend der Funktion VerzeichnisseEinlesen. Aus Platzgründen wird daher auf eine separate Beschreibung der Funktion verzichtet.<\/p>\n Wie beim Windows-Explorer soll auch der Dateimanager die Möglichkeit bieten, Dateien und Verzeichnisse zu sortieren. Daher legen Sie zunächst einige Beschriftungsfelder entsprechend Bild 5 oberhalb der Listenfelder an.<\/p>\n Außerdem benötigen Sie die fünf versteckten Textfelder txtSortierfeld, txtSortVerzeichnisname, txtSortDateiname, txtSortGroesse, txtSortAenderung.<\/p>\n Warum versteckte Textfelder Kann man statt dessen keine Variablen verwenden Nein, in diesem Fall nicht. Das Sortieren der Daten erfolgt innerhalb einer Callback-Funktion, der man beim Aufruf keine eigenen Variablen übergeben kann. Daher werden die für die Sortierung benötigten Informationen in versteckte Textfelder gepackt – diese können anschließend von der Callback-Funktion angesprochen werden. <\/p>\n Das erste Feld enthält den Namen der Spalte der beiden Listenfelder, die sortiert werden soll. Die anderen Felder enthalten einen Hinweis auf die aktuelle Sortierung der vier Spalten. Der Wert dieser Felder ist jeweils ASC oder DESC.<\/p>\n Die Sortierung soll durch einen Doppelklick auf die Beschriftungsfelder erfolgen. Dazu legen Sie für die entsprechende Ereigniseigenschaft die Prozedur aus Quellcode 3 an.<\/p>\n Die Prozedur ist prinzipiell für alle vier vorhandenen Spalten gleich. Sie setzt zunächst einmal den Wert des Textfeldes txtSortierfeld auf den mit der Spalte verbundenen Feldnamen.<\/p>\n Dabei handelt es sich um den Feldnamen, der in der Callback-Funktion verwendet wird. Anschließend ändert sie den Wert des Textfeldes, das die aktuelle Sortierung speichert, auf den jeweils anderen Wert – bei ASC auf DESC und umgekehrt.<\/p>\n Mit der letzten Anweisung aktualisiert die Funktion den Inhalt des Listenfeldes. Dadurch wird erneut die Callback-Funktion aufgerufen.<\/p>\n Quellcode 3<\/b><\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Da das Textfeld txtSortierfeld nun nicht mehr leer ist, wird in der If Then-Abfrage die zweite Option durchgeführt. Diese setzt aus dem Inhalt des Feldes txtSortierfeld und dem Feld txtSortVerzeichnis den Parameter für die Sort-Methode zusammen. <\/p>\n Zur Anzeige der Verzeichnisse eines anderen Laufwerkes wählen Sie das gewünschte Laufwerk mit dem Kombinationsfeld cboLaufwerke aus. Zur Aktualisierung der beiden Listenfelder nach dem Laufwerkwechsel verwenden Sie eine Prozedur, die durch die Ereigniseigenschaft Nach Aktualisierung ausgelöst wird.<\/p>\n Da die Prozedur prinzipiell die gleiche Funktion hat wie die beim Laden des Formulars ausgeführte Prozedur, soll sie hier nicht weiter besprochen werden.<\/p>\n Die in den beiden Listenfeldern angezeigten Informationen gelten jeweils für das im Textfeld txtVerzeichnis angezeigte Verzeichnis. Um dieses Verzeichnis zu wechseln, gibt es zwei Möglichkeiten: den Wechsel in das übergeordnete oder eines der untergeordneten Verzeichnisse.<\/p>\n Wechsel in ein untergeordnetes Verzeichnis<\/b><\/p>\n Der Wechsel in ein untergeordnetes Verzeichnis erfolgt durch einen Doppelklick auf das gewünschte Verzeichnis. Dadurch wird die Prozedur aus Quellcode 4 ausgelöst.<\/p>\n Die Prozedur ändert einfach den Eintrag des Textfeldes txtVerzeichnis ab, indem sie den aktuellen Eintrag um den Namen des ausgewählten Verzeichnisses erweitert. Die folgenden Anweisungen sorgen für die Aktualisierung der beiden Listenfelder.<\/p>\n Quellcode 6<\/b><\/p>\n Wechsel in das übergeordneteVerzeichnis<\/b><\/p>\n Für den Wechsel in das übergeordnete Verzeichnis steht eine Schaltfläche namens cmdParent zur Verfügung. Mit einem Mausklick auf die Schaltfläche lösen Sie die Prozedur aus Quellcode 5 aus.<\/p>\n Die Prozedur beginnt mit der Deklaration der drei Objektvariablen für die Objekte FileSystemObject, Drive und Folder. Das Drive-Objekt erhält einen Verweis auf das im Kombinationsfeld cboLaufwerke ausgewählte Laufwerk. Das Folder-Objekt verweist auf das im Textfeld txtVerzeichnisse angegebene Verzeichnis.<\/p>\n In einer If Then-Abfrage überprüft die Prozedur, ob das aktuelle Verzeichnis nicht das Stammverzeichnis des aktuellen Laufwerks ist. In dem Fall ist natürlich kein übergeordnetes Verzeichnis mehr vorhanden.<\/p>\n Anderenfalls ermittelt die Funktion über die Eigenschaft ParentFolder den übergeordneten Ordner, weist dem Textfeld txtVerzeichnis dessen Namen zu und aktualisiert die Inhalte der Listenfelder.<\/p>\n Für das Kopieren, Ausschneiden und Einfügen sind insgesamt drei Schaltflächen vorgesehen.<\/p>\n Die erste Schaltfläche dient zur Auswahl des aktuell markierten Ordners oder der aktuell markierten Datei als zu kopierendes Objekt. Die zweite Schaltfläche führt das Gleiche für auszuschneidende Objekte durch. Die dritte Schaltfläche schließlich führt die Kopier- oder Ausschneide-Aktion aus und fügt die Datei in das aktuell ausgewählte Verzeichnis ein.<\/p>\n Da das Markieren der zu kopierenden oder auszuschneidenden Objekte und die eigentliche Operation nicht unmittelbar aufeinander folgen, müssen einige Informationen entweder in globalen Variablen oder – wie bereits weiter oben praktiziert – in Textfeldern untergebracht werden.<\/p>\n Dazu verwenden Sie die versteckten Textfelder txtMarkiert, txtAktion und txtTyp. Das Textfeld txtMarkiert speichert das betroffene Objekt, also die Datei oder das Verzeichnis, mit komplettem Pfad. Das Textfeld txtAktion speichert die durchzuführende Aktion, also Kopieren oder Ausschneiden. Das Textfeld txtTyp speichert den Typ des Objekts, also Datei oder Ordner.<\/p>\n Dateien zum Verschiebenmarkieren<\/b><\/p>\n Ein Mausklick auf die Schaltfläche cmdAusschneiden löst die Prozedur aus Quellcode 6 aus. Die Prozedur überprüft zunächst, ob ein Ordner markiert ist. Falls ja, schreibt sie seinen Namen in das Textfeld txtMarkiert und trägt den Wert Ordner in das Textfeld txtTyp ein. Anderenfalls überprüft die Prozedur, ob eine Datei markiert ist, und führt ggf. die entsprechenden Anweisungen aus. Ist weder ein Ordner noch eine Datei markiert, erscheint eine entsprechende Meldung und die Prozedur wird beendet.<\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n In den beiden ersten Fällen wird in der letzten Anweisung noch der Wert Ausschneiden in das Textfeld txtAktion geschrieben.<\/p>\n Dateien zum Kopieren markieren<\/b><\/p>\n Die Prozedur, die durch einen Mausklick auf die Schaltfläche btnKopieren ausgelöst wird, stimmt weitestgehend mit der im vorherigen Abschnitt beschriebenen Prozedur überein. Der einzige Unterschied ist, dass in das Textfeld txtAktion der Wert Kopieren eingetragen wird.<\/p>\n Ausgewählte Dateien kopieren oder verschieben<\/b><\/p>\n Um ausgewählte Dateien oder Ordner zu kopieren oder zu verschieben, ist ein Mausklick auf die Schaltfläche cmdEinfuegen erforderlich. Die dadurch ausgelöste Prozedur finden Sie in Quellcode 7. Die Prozedur ruft die Funktion FileOperation auf und aktualisiert anschließend die beiden Listenfelder.<\/p>\n Ordner oder Dateien löschen<\/b><\/p>\n Das Löschen von Ordnern oder Dateien erfolgt durch die Markierung des gewünschten Objekts und die anschließende Betätigung der Schaltfläche cmbLoeschen.<\/p>\n Die dadurch ausgelöste Prozedur (s. Quellcode 8) ermittelt zunächst, ob ein Ordner oder eine Datei zum Löschen markiert wurde. Falls ja, ruft sie die Funktion FileOperation mit den entsprechenden Argumenten auf. Anderenfalls gibt sie eine entsprechende Fehlermeldung aus.<\/p>\n Falls ein Objekt gelöscht wurde, aktualisiert die Prozedur noch die beiden Listenfelder. <\/p>\n Die Funktion FileOperation<\/b><\/p>\n Beim Kopieren, Verschieben oder Löschen von Ordnern oder Dateien rufen die entsprechenden Prozeduren die Funktion FileOperation (s. Quellcode 9) auf.<\/p>\n Quellcode 9<\/b><\/p>\n Quellcode 10<\/b><\/p>\n Die Funktion hat drei Parameter: Quelle, QuelleTyp und Aktion. Der Parameter Quelle enthält den kompletten Pfad des Ordners oder der Datei, an der die Operation durchgeführt wird. Der Parameter Quelletyp enthält einen der Werte Ordner oder Datei. Der Parameter Aktion enthält schließlich einen Wert, der die auszuführende Aktion beschreibt: Kopieren, Verschieben oder Loeschen.<\/p>\n Die Funktion wertet die Parameter aus und führt die entsprechenden Aktionen durch. Dazu verwendet sie sechs unterschiedliche Methoden des FileSystemObjects.<\/p>\n Zum Verschieben eines Objektes verwendet die Funktion die Methoden MoveFolder oder MoveFile – je nach Objekttyp.<\/p>\n Beim Kopieren treten die Methoden CopyFolder oder CopyFile in Aktion. Schließlich verwendet die Funktion die Methoden DeleteFolder oder DeleteFile zum Löschen eines Ordners oder einer Datenbank. <\/p>\n Neuen Ordner erstellen<\/b><\/p>\n Um die wichtigen Funktionen eines Dateimanagers zu komplettieren, fehlt noch das Erstellen eines Ordners. Dazu dient die Prozedur aus Quellcode 10, die beim Anklicken der Schaltfläche cmdNeuerOrdner ausgelöst wird.<\/p>\n Die Prozedur verwendet eine Input-Box zur Abfrage des neuen Ordnernamens.<\/p>\n Wenn der Benutzer einen Ordnernamen eingegeben hat, legt die Prozedur mit der CreateFolder-Methode den neuen Ordner an.<\/p>\n Der Ordnername setzt sich aus dem im Textfeld txtVerzeichnis angegebenen Verzeichnis und dem angegebenen Ordnernamen zusammen.<\/p>\n <\/b><\/p>\n Bild 6: Der fertige Dateimanager<\/span><\/b><\/p>\n Quellcode 11<\/b><\/p>\n Quellcode 12<\/b><\/p>\n Die beiden Listenfelder können jeweils einen markierten Eintrag enthalten. Einige der hier vorgestellten Prozeduren fragen den Inhalt der Listenfelder ab, um das zu verarbeitende Objekt zu ermitteln.<\/p>\n Da ist es unter Umständen ungünstig, wenn in beiden Listenfeldern jeweils ein Eintrag markiert ist. Daher soll jedes Mal, wenn ein Eintrag in einem der beiden Listenfelder markiert wird, der eventuell markierte Eintrag im jeweils anderen Listenfeld deaktiviert werden.<\/p>\n Dazu legen Sie jeweils eine Prozedur für die Ereigniseigenschaft Bei Fokuserhalt an (s. Quellcode 11 und Quellcode 12). Das fertige Formular sieht wie in Bild 6 aus.<\/p>\n Das öffnen von Dokumente erfolgt durch einen Doppelklick auf das gewünschte Dokument. Eine hier nicht näher erläuterte Funktion ermittelt die entsprechende Anwendung und öffnet die Datei.<\/p>\n Anhand des konkreten Beispiels eines Dateimanagers haben Sie einige Objekte, Methoden und Eigenschaften des FileSystemObjects kennen gelernt.<\/p>\n Zusätzlich haben Sie nun einen kompakten, in einem Formular untergebrachten Dateimanager, den Sie bequem in Ihre eigenen Datenbanken integrieren können.<\/p>\n Sie müssen lediglich die Verweise auf die beiden Bibliotheken Microsoft Scripting Runtime und Microsoft ActiveX Data Objects 2.5 setzen und diese ggf. von den Internetseiten von Microsoft downloaden.<\/p>\n Das FileSystemObject bietet jedoch noch mehr Möglichkeiten: Sie können z. B. Verzeichnisse von CDs auslesen und diese für den Ausdruck eines CD-Covers aufbereiten oder einfach den Inhalt einer Daten-CD für Archivzwecke ausdrucken.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Dateimanager00.mdb<\/p>\n Dateimanager97.mdb<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{EA54F8E8-2249-4691-9E46-BB666C85DC3B}\/pic002.png\")
<\/p>\n\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Private Sub Form_Load()\r\n Dim objFSO As Scripting.FileSystemObject\r\n Dim objLaufwerk As Scripting.Drive\r\n Dim strLaufwerke As String\r\n Set objFSO = New FileSystemObject\r\n On Error Resume Next\r\n For Each objLaufwerk In objFSO.Drives\r\n strLaufwerke = strLaufwerke & \";\" & _ objLaufwerk.DriveLetter & \";\" & _ objLaufwerk.DriveLetter & \":\"\r\n strLaufwerke = strLaufwerke & _\r\n Choose(objLaufwerk.DriveType + 1, _ \"Unbekannt\", \"Diskettenlaufwerk\", _ \"Lokale Festplatte\", \"Netzlaufwerke\", _ \"CD-Laufwerke u.ä.\", \"Ram-Disk\")\r\n Next\r\n Me.cboLaufwerke.RowSource = Mid(strLaufwerke, 2, _ Len(strLaufwerke) - 1)\r\n Me.txtVerzeichnis = \"c:\\\"\r\n Me.cboLaufwerke.Value = \"c\"\r\n Me.lstOrdner.SetFocus\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{EA54F8E8-2249-4691-9E46-BB666C85DC3B}\/pic003.png\")
<\/p>\n\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n ![](\"..\/fileadmin\/_temp_\/{EA54F8E8-2249-4691-9E46-BB666C85DC3B}\/pic004.png\")
<\/p>\nHinweis<\/h3>\n
Hinweis<\/h3>\n
Hinweis<\/h3>\n
Function VerzeichnisseEinlesen(Feld As Control, ID As Variant, Zeile As Variant, _ Spalte As Variant, Code As Variant) As Variant\r\n Static rstVerzeichnisse As ADODB.Recordset\r\n Static i As Integer\r\n Dim Rueckgabewert As Variant\r\n Dim Pfad As String\r\n Dim objFSO As Scripting.FileSystemObject\r\n Dim objVerzeichnis As Scripting.folder\r\n Select Case Code\r\n Case acLBInitialize\r\n i = 0\r\n Pfad = Nz(Me.txtVerzeichnis, \"C:\\\") & IIf(Right(Pfad, 1) = \"\\\", \"\", \"\\\")\r\n Set objFSO = New FileSystemObject\r\n Set rstVerzeichnisse = New ADODB.Recordset\r\n With rstVerzeichnisse\r\n Set .ActiveConnection = Nothing\r\n .Fields.Append \"ID\", adInteger, 10, adFldIsNullable\r\n .Fields.Append \"Verzeichnisname\", adWChar, 255, adFldIsNullable\r\n .Open\r\n For Each objVerzeichnis In objFSO.GetFolder(Pfad).SubFolders\r\n .AddNew\r\n !Verzeichnisname = objVerzeichnis.Name\r\n .Update\r\n Next objVerzeichnis\r\n If IsNull(Me.txtSortierfeld) Then\r\n .Sort = \"[Verzeichnisname]\"\r\n Else\r\n .Sort = \"[\" & Me.txtSortierfeld & \"]\" & Me(\"txtSort\" & _ Me.txtSortierfeld)\r\n End If\r\n If Not .EOF Then .MoveFirst\r\n Do While Not .EOF\r\n i = i + 1\r\n !ID = i\r\n .Update\r\n .MoveNext\r\n Loop\r\n End With\r\n Rueckgabewert = i\r\n Case acLBOpen: Rueckgabewert = Timer\r\n Case acLBGetRowCount: Rueckgabewert = i\r\n Case acLBGetColumnCount: Rueckgabewert = 1\r\n Case acLBGetColumnWidth: Rueckgabewert = -1\r\n Case acLBGetValue\r\n rstVerzeichnisse.MoveFirst\r\n rstVerzeichnisse.Filter = \"ID = \" & Zeile + 1\r\n Rueckgabewert = rstVerzeichnisse!Verzeichnisname\r\n Case acLBGetFormat\r\n Case acLBEnd: Set rstVerzeichnisse = Nothing\r\n End Select\r\n VerzeichnisseEinlesen = Rueckgabewert\r\nEnd Function<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{EA54F8E8-2249-4691-9E46-BB666C85DC3B}\/pic005.png\")
<\/p>\nPraxis-Tipp<\/h3>\n
Private Sub lblVerzeichnisse_DblClick(Cancel As Integer)\r\n Me.txtSortierfeld = \"Verzeichnisname\"\r\n Me.txtSortVerzeichnisname = _ IIf(Me.txtSortVerzeichnisname = \"DESC\", \"ASC\", _ \"DESC\")\r\n Me.lstOrdner.Requery\r\nEnd Sub<\/pre>\n
Private Sub lstOrdner_DblClick(Cancel As Integer)\r\n Me.txtVerzeichnis = Me.txtVerzeichnis & _ Me.lstOrdner & \"\\\"\r\n Me.lstOrdner.Requery\r\n Me.lstOrdner = Null\r\n Me.lstDateien.Requery\r\nEnd Sub<\/pre>\n
Private Sub cmdParent_Click()\r\n Dim objFSO As Scripting.FileSystemObject\r\n Dim objFolder As Scripting.folder\r\n Dim objDrive As Scripting.Drive\r\n Set objFSO = New Scripting.FileSystemObject\r\n Set objDrive = objFSO.Drives(Me.cboLaufwerke)\r\n Set objFolder = objFSO.GetFolder(Me.txtVerzeichnis)\r\n If Not objFolder.Path = objDrive.RootFolder Then\r\n Me.txtVerzeichnis = objFolder.ParentFolder & _ IIf(Right(objFolder.ParentFolder, 1) <> _ \"\\\", \"\\\", \"\")\r\n Me.lstOrdner.Requery\r\n Me.lstDateien.Requery\r\n Else\r\n Me.cboLaufwerke.SetFocus\r\n Me.lstOrdner = Null\r\n Me.lstDateien.Requery\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdAusschneiden_Click()\r\n If Me.lstOrdner <> \"\" Then\r\n Me.txtTyp = \"Ordner\"\r\n Me.txtMarkiert = Me.txtVerzeichnis & _ Me.lstOrdner\r\n ElseIf Me.lstDateien <> \"\" Then\r\n Me.txtTyp = \"Datei\"\r\n Me.txtMarkiert = Me.txtVerzeichnis & _ Me.lstOrdner & Me.lstDateien\r\n Else\r\n MsgBox \"Keine Quelle (Ordner\/Datei) ausgewählt.\"\r\n Exit Sub\r\n End If\r\n Me.txtAktion = \"Ausschneiden\"\r\nEnd Sub<\/pre>\n
Private Sub cmdEinfuegen_Click()\r\n FileOperation Me.txtMarkiert, Me.txtTyp, Me.txtAktion\r\n Me.lstOrdner.Requery\r\n Me.lstDateien.Requery\r\nEnd Sub<\/pre>\n
Private Sub cmdLoeschen_Click()\r\n Dim Quelle As String\r\n If Not IsNull(Me.lstOrdner) Then\r\n Quelle = Me.txtVerzeichnis & Me.lstOrdner\r\n FileOperation Quelle, \"Ordner\", \"Loeschen\"\r\n ElseIf Not IsNull(Me.lstDateien) Then\r\n Quelle = Me.txtVerzeichnis & Me.lstOrdner & Me.lstDateien\r\n FileOperation Quelle, \"Datei\", \"Loeschen\"\r\n Else\r\n MsgBox \"Keine Quelle (Ordner\/Datei) ausgewählt.\"\r\n Exit Sub\r\n End If\r\n Me.lstOrdner.Requery\r\n Me.lstDateien.Requery\r\nEnd Sub<\/pre>\n
Sub FileOperation(Quelle As String, QuelleTyp As String, Aktion As String)\r\n Dim objFSO As Scripting.FileSystemObject\r\n Set objFSO = New Scripting.FileSystemObject\r\n Select Case Aktion\r\n Case \"Verschieben\"\r\n If QuelleTyp = \"Ordner\" Then\r\n objFSO.MoveFolder Quelle, _ Me.txtVerzeichnis\r\n ElseIf QuelleTyp = \"Datei\" Then\r\n objFSO.MoveFile Quelle, _ Me.txtVerzeichnis\r\n End If\r\n Case \"Kopieren\"\r\n If QuelleTyp = \"Ordner\" Then\r\n objFSO.CopyFolder Quelle, _ Me.txtVerzeichnis\r\n ElseIf Me.txtTyp = \"Datei\" Then\r\n objFSO.CopyFile Quelle, _ Me.txtVerzeichnis\r\n End If\r\n Case \"Loeschen\"\r\n If QuelleTyp = \"Ordner\" Then\r\n objFSO.DeleteFolder Quelle\r\n ElseIf QuelleTyp = \"Datei\" Then\r\n objFSO.DeleteFile Quelle\r\n End If\r\n End Select\r\nEnd Sub<\/pre>\n
Private Sub cmdNeuerOrdner_Click()\r\n Dim Ordnername As String\r\n Dim objFSO As Scripting.FileSystemObject\r\n Set objFSO = New Scripting.FileSystemObject\r\n Ordnername = InputBox(\"Geben Sie den Ordnernamen\" _ & \" ein:\", \"Neuer Ordner\")\r\n If Ordnername = \"\" Then\r\n Exit Sub\r\n End If\r\n objFSO.CreateFolder Me.txtVerzeichnis & Ordnername\r\n Me.lstOrdner.Requery\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{EA54F8E8-2249-4691-9E46-BB666C85DC3B}\/pic006.png\")
<\/p>\nPrivate Sub lstOrdner_GotFocus()\r\n Me.lstDateien = Null\r\nEnd Sub<\/pre>\n
Private Sub lstDateien_GotFocus()\r\n Me.lstOrdner = Null\r\nEnd Sub<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n