Dateien verwalten mit Access

Autor: André Minhorst, Duisburg

!

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.

Das FileSystemObject enthält Objekte, Methoden und Eigenschaften für den Zugriff auf die Laufwerke, Ordner und Dateien des Filesystems von Windows.

Sie können Informationen über alle genannten Objekte ermitteln und Ordner und Dateien erstellen, kopieren, ausschneiden, einfügen, bearbeiten und löschen.

Prinzipiell können Sie durch die Programmierung mit dem FileSystemObject alle Aufgaben erledigen, die auch der Windows-Explorer (s. Abb. 1) zur Verfügung stellt.

Abb. 1: Der klassische Windows-Explorer

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.

Dies ist vor allem interessant, wenn Sie umfangreichere Datenbanken haben, die den gesamten Funktionsumfang abdecken, den Ihre Mitarbeiter benötigen.

Sie können den Dateimanager dann in die Access-Datenbank integrieren und müssen für einfache File-Operationen keine externe Anwendung mehr öffnen.

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.

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.

Hinweis

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.

Abb. 2: Das Formular frmDateimanager mit seinen Steuerelementen in der Entwurfsansicht

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.

Erstellen Sie zunächst ein Beispielformular, von dem aus Sie die unterschiedlichen Aktionen ausführen und Laufwerke, Verzeichnisse und Dateien anzeigen können.

Stellen Sie die Eigenschaften Bildlaufleisten, Datensatzmarkierer, Navigationsschaltflächen und Trennlinien auf den Wert Nein ein.

Erstellen Sie anschließend einige Steuerelemente auf dem neuen Formular und ordnen Sie diese wie in Abb. 2 an. In Tabelle 1 finden Sie eine Liste der Steuerelemente mit ihren Namen und Funktionen.

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.

Steuerelement

Funktion

cboLaufwerke

Auswahl des gewünschten Laufwerks

txtVerzeichnis

Anzeige des aktuellen Verzeichnisses

cmdNeuerOrdner

Schaltfläche zum Anlegen eines neuen Ordners

cmdLoeschen

Schaltfläche zum Löschen des ausgewählten Objekts aus lstOrdner oder lstDateien

cmdEinfuegen

Schaltfläche zum Einfügen der mit cmdKopieren oder cmdAusschneiden markierten Datei

cmdKopieren

Schaltfläche zur Auswahl einer zu kopierenden Datei

cmdAusschneiden

Schaltfläche zur Auswahl einer auszuschneidenden Datei

lstOrdner

Liste der Ordner, die sich in dem Verzeichnis in txtVerzeichnis befinden

lstDateien

Liste der Dateien, die sich in dem Verzeichnis in txtVerzeichnis befinden

lblVerzeichnisse, lblDateien, lblGroesse, lblAenderungsdatum

Beschriftungsfelder, die bei Doppelklick einen Sortiervorgang auslösen

txtSortVerzeichnisname, txtSortDateiname, txtSortGroesse, txtSortAenderung

Versteckte Textfelder zum Speichern der aktuellen Sortierung der Listenspalten

txtAktion

Verstecktes Textfeld zum Speichern der auszuführenden Aktion, also Kopieren oder Ausschneiden

txtMarkiert

Verstecktes Textfeld zum Speichern ausgewählter Dateien/Ordner

txtSortierfeld

Verstecktes Textfeld zum Speichern der zu sortierenden Listenspalte

txtTyp

Verstecktes Textfeld zum Festlegen, ob Datei oder Verzeichnis ausgewählt ist

Tab. 1: Steuerelemente des Formulars frmDateimanager

Um das Kombinationsfeld mit den nötigen Daten zu füllen, benötigen Sie eine Prozedur, die beim öffnen des Formulars ausgelöst wird.

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.

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.

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.

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.

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 Abb. 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.

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.

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.

Tabelle 2 enthält eine Auflistung der gängigsten Laufwerktypen und deren Konstanten.

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.

Private Sub Form_Load()
    Dim objFSO As Scripting.FileSystemObject
    Dim objLaufwerk As Scripting.Drive
    Dim strLaufwerke As String
    Set objFSO = New FileSystemObject
    On Error Resume Next
    For Each objLaufwerk In objFSO.Drives
        strLaufwerke = strLaufwerke & ";" & _            objLaufwerk.DriveLetter & ";" & _            objLaufwerk.DriveLetter & ":"
        strLaufwerke = strLaufwerke & _
            Choose(objLaufwerk.DriveType + 1, _            "Unbekannt", "Diskettenlaufwerk", _            "Lokale Festplatte", "Netzlaufwerke", _            "CD-Laufwerke u.ä.", "Ram-Disk")
    Next
    Me.cboLaufwerke.RowSource = Mid(strLaufwerke, 2, _        Len(strLaufwerke) - 1)
    Me.txtVerzeichnis = "c:\\"
    Me.cboLaufwerke.Value = "c"
    Me.lstOrdner.SetFocus
End Sub

Quellcode 1

Abb. 3: Auswahl eines Laufwerks per Kombinationsfeld

Laufwerktyp

Konstante(Wert)

Unbekannt

Unknown (0)

Diskettenlaufwerk

Removable (1)

Lokale Festplatte

Fixed (2)

Netzlaufwerk

Remote (3 )

CD-Laufwerk u. ä.

CDRom (4)

Ram-Disk

RamDisk (5)

Tab. 2: Laufwerktypen und deren Konstanten

Abb. 4: Anzeige von Laufwerksinformationen

Die unterschiedlichen Eigenschaften sollen in dafür vorgesehenen Textfeldern dargestellt werden (s. Abb. 4). Da die Zuweisung der Eigenschaften zu den Textfeldern relativ trivial ist, wird sie an dieser Stelle nicht genauer beschrieben.

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.

Hinweis

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.

Verzeichnisse anzeigen

Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!
Hier geht es zur Bestellung des Jahresabonnements des Magazins Access im Unternehmen:
Zur Bestellung ...
Danach greifen Sie sofort auf alle rund 1.000 Artikel unseres Angebots zu - auch auf diesen hier!
Oder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:

Schreibe einen Kommentar