Datei- und Verzeichnisoperationen mit der Shell

Lies diesen Artikel und viele weitere mit einem kostenlosen, einwöchigen Testzugang.

Zu den häufigsten Aufgaben außerhalb einer Access-Datenbankanwendung gehört sicher der Zugriff auf Dateien und Verzeichnisse. Ob Sie nun externe Daten exportieren oder importieren, Dokumente fernsteuern, oder Eigenschaften von Dateien ermitteln möchten, all dies erfordert Navigation in Verzeichnissen und das Ansprechen von Dateien. Und das möglicherweise auch noch innerhalb einer Netzwerkstruktur. Die VBA-Grundfunktionen machen es Ihnen da nicht immer leicht. über die Shell von Windows kommen Sie jedoch spielend zum Ziel.

Beispieldatenbank

Die Beispiele dieses Artikels finden Sie in der Datenbank 1610_ShellObjekte.accdb

VBA-Funktionen für Dateien und Verzeichnisse

Die Klasse FileSystem der VBA-Bibliothek gibt im Objektkatalog eine nur dürftige Liste von Methoden aus, über die verschiedene Datei- und Verzeichnisoperationen ausgeführt werden können. Dieses altehrwürdige Ensemble stammt noch aus Zeiten, in denen Visual Basic eine gewichtige Rolle spielte, und das war Mitte der 90er-Jahre, als noch erheblich geringere Anforderungen gestellt wurden. Seitdem hat sich am Befehlsbestand nichts geändert und die Funktionen weisen leider immer noch Mängel auf.

Die Liste ist schnell beschrieben. Zu den Verzeichnisfunktionen gehören diese:

CurDir ermittelt das aktuelle Verzeichnis. ChDir wechselt zu einem anderen, ChDrive zu einem anderen Laufwerk. Derlei braucht heute niemand mehr – es spielte eher unter DOS eine Rolle. MkDir erzeugt ein neues Verzeichnis mit dem im Parameter angegebenen. Leider funktioniert das nur dann, wenn das oberste Verzeichnis bereits existiert. Das neue kann nur eine Ebene tiefer angelegt werden. ähnliches gilt für RmDir, was ein Verzeichnis löscht. Die Anweisung klappt nicht, wenn ein Verzeichnis nicht leer ist.

Und das war’s auch schon! Die Dateimethoden beschränken sich nun auf folgende:

Kill löscht die angegebene Datei. FileCopy kopiert eine Datei in den im zweiten Parameter angegebenen Ordner. Verschieben geht nicht. Es ist nur durch die Kombination aus FileCopy und anschließendem Kill zu realisieren. FileLen gibt die Dateigröße zurück, FileDateTime das Erstelldatum, GetAttr die Zugriffsattribute.

Lesend und schreibend greifen Sie über die Open-Anweisung auf eine Datei zu. Das ist wohl von allen der wichtigste Befehl. Und schließlich lassen sich über Dir sowohl Dateien, wie auch Verzeichnisse, enumerieren oder nach ihrer Existenz befragen.

Mindestens zwei Kritikpunkte sind für sämtliche dieser Dateisystemfunktionen hervorzubringen. Zum einen scheitern sie häufig an Objekten, deren Namen in Unicode formatiert sind und Sonderzeichen enthalten. Hier ruft VBA schlicht einen Fehler aus. Zum anderen – und das ist viel schwerwiegender! – kommen sie nicht mit Netzwerkpfaden klar. Auf die Dateien eines Server in der Syntax \\serverxy\c\… besteht kein Zugriff. Hier wird dann ein nicht existierendes Verzeichnis bemängelt oder eine falsche Dateinummer gemeldet. Behelfen können Sie sich da dann nur mit zusätzlich eingerichteten Netzlaufwerken.

Einst führten diese Beschränkungen zu einer Menge Programmierlösungen unter Verwendung von Windows-API-Funktionen, die im Internet fröhliche Urstände feierten. Das aber ist inzwischen obsolet.

Die Windows-Shell-Bibliothek

Es lohnt sich uneingeschränkt, auf diese COM-Bibliothek, die grundsätzlich jedes Windows mit sich bringt, ein Auge zu werfen, denn sie ermöglicht einfache Lösungen, die auf andere Weise viel umständlicher zu erreichen wären. Sie hängen sie in ihr VBA-Projekt ein, indem Sie zunächst einen Verweis auf Microsoft Shell Controls And Automation setzen. Verantwortlich für die Bibliothek ist die System-Dll shell32. So lautet auch der Name der Bibliothek, wenn Sie sie dann unter VBA ansprechend möchten. Es gibt genau ein Objekt in ihr, das die Zentrale für alle weiteren Vorgänge darstellt, nämlich das Shell-Objekt.

Sie erzeugen das Objekt über den New-Operator:

Dim oShell As Shell32.Shell
Set oShell = New Shell32.Shell

Nun lassen sich über dieses Objekt allerlei Dinge anstellen, wie ein Blick in den Objektkatalog zeigt, nachdem Sie im Kombinationsfeld links oben Shell32 auswählten und in der Klassenliste Shell markierten. Wir lassen hier jedoch alle Methoden unbeachtet, bis auf eine sehr mächtige, die sich NameSpace nennt.

NameSpace

Die Funktion gibt zu dem im Parameter übergebenen Ausdruck ein Verzeichnisobjekt zurück. Dieses ist vom in der Verweisbibliothek definierten Typ Folder, mit dem sich anschließend weitere Operationen ausführen lassen. Als Parameter für NameSpace kommen sowohl Strings, wie auch Zahlen infrage, wie wir gleich sehen werden.

Ein kleines Bespiel macht alles deutlicher:

Dim oShell As New Shell32.Shell
Dim oFld As Shell32.Folder
Set oFld = _
    oShell.NameSpace("c:\windows")
Debug.Print oFld.Title

Im VBA-Direktfenster wird bei Ausführung dieses Schnipsels der Text Windows ausgegeben. Das Folder-Objekt oFld hat diesen Titel, der nicht mit dem Pfad zu verwechseln ist. Den erhält man erst über einen Umweg:

Debug.Print oFld.Self.Path
> c:\windows

Das ist soweit noch nicht sonderlich aufregend. Die Besonderheit der Windows-Shell liegt jedoch darin begründet, dass sie all ihre Objekte wie Verzeichnisse und Dateien behandeln kann, also auch Objekte außerhalb des Dateisystems. Der Explorer zeigt das deutlich. Deshalb kann man NameSpace auch unterschiedliche Werte für den Parameter zuweisen, eben jene, die auch der Explorer verarbeiten kann. Hier einige Beispiele für mögliche Parameter:

c:\windows\
nas\public\images
3
http://www.access-im-unternehmen.de
ftp://ftp.rz.uni-wuerzburg.de/pub
e:\dokumente\alles.zip
::{21EC2020-3AEA-1069-A2DD- _
                        08002B30309D}

Da kann die Dir-Funktion von VBA wohl nicht mithalten! Die erste Zeile bezieht sich auf den lokalen Pfad von Windows. Die zweite ist eine ein Serverpad im Netzwerk – für die Shell kein Problem! Die dritte Zeile übergäbe einfach eine Zahl. NameSpace nimmt dann an, dass es sich um einen der im System verankerten sogenannten Special Folders handelt, die jeweils eine eindeutige ID besitzen. Das sind vorgegebene Windows-Spezialordner, wie etwa der Desktop, welcher über den Parameterwert 0 anzusprechen wäre. Mit der 3 hingegen erhalten Sie als Folder.Title die Bezeichnung Systemsteuerung, denn auch die ist ein virtueller Ordner. Und was wäre deren Pfad Folder.Self.Path gibt dies aus:

Ende des frei verfügbaren Teil. Wenn Du mehr lesen möchtest, hole Dir ...

Testzugang

eine Woche kostenlosen Zugriff auf diesen und mehr als 1.000 weitere Artikel

diesen und alle anderen Artikel mit dem Jahresabo