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.<\/p>\n
Die Beispiele dieses Artikels finden Sie in der Datenbank 1610_ShellObjekte.accdb<\/b><\/p>\nVBA-Funktionen für Dateien und Verzeichnisse<\/h2>\n
Die Klasse FileSystem<\/b> 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<\/b> 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.<\/p>\n
Die Liste ist schnell beschrieben. Zu den Verzeichnisfunktionen gehören diese:<\/p>\n
CurDir<\/b> ermittelt das aktuelle Verzeichnis. ChDir<\/b> wechselt zu einem anderen, ChDrive<\/b> zu einem anderen Laufwerk. Derlei braucht heute niemand mehr – es spielte eher unter DOS<\/b> eine Rolle. MkDir<\/b> 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<\/b>, was ein Verzeichnis löscht. Die Anweisung klappt nicht, wenn ein Verzeichnis nicht leer ist.<\/p>\n
Und das war’s auch schon! Die Dateimethoden beschränken sich nun auf folgende:<\/p>\n
Kill<\/b> löscht die angegebene Datei. FileCopy<\/b> kopiert eine Datei in den im zweiten Parameter angegebenen Ordner. Verschieben geht nicht. Es ist nur durch die Kombination aus FileCopy<\/b> und anschließendem Kill<\/b> zu realisieren. FileLen<\/b> gibt die Dateigröße zurück, FileDateTime<\/b> das Erstelldatum, GetAttr<\/b> die Zugriffsattribute.<\/p>\n
Lesend und schreibend greifen Sie über die Open<\/b>-Anweisung auf eine Datei zu. Das ist wohl von allen der wichtigste Befehl. Und schließlich lassen sich über Dir<\/b> sowohl Dateien, wie auch Verzeichnisse, enumerieren oder nach ihrer Existenz befragen.<\/p>\n
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\\…<\/b> 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.<\/p>\n
Einst führten diese Beschränkungen zu einer Menge Programmierlösungen unter Verwendung von Windows-API<\/b>-Funktionen, die im Internet fröhliche Urstände feierten. Das aber ist inzwischen obsolet.<\/p>\nDie Windows-Shell-Bibliothek<\/h2>\n
Es lohnt sich uneingeschränkt, auf diese COM-Bibliothek<\/b>, 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 <\/b>setzen. Verantwortlich für die Bibliothek ist die System-Dll shell32<\/b>. 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<\/b>-Objekt. <\/p>\n
Sie erzeugen das Objekt über den New<\/b>-Operator:<\/p>\n Nun lassen sich über dieses Objekt allerlei Dinge anstellen, wie ein Blick in den Objektkatalog zeigt, nachdem Sie im Kombinationsfeld links oben Shell32<\/b> auswählten und in der Klassenliste Shell<\/b> markierten. Wir lassen hier jedoch alle Methoden unbeachtet, bis auf eine sehr mächtige, die sich NameSpace<\/b> nennt.<\/p>\n Die Funktion gibt zu dem im Parameter übergebenen Ausdruck ein Verzeichnisobjekt zurück. Dieses ist vom in der Verweisbibliothek definierten Typ Folder<\/b>, 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.<\/p>\n Ein kleines Bespiel macht alles deutlicher:<\/p>\n Im VBA-Direktfenster wird bei Ausführung dieses Schnipsels der Text Windows<\/b> ausgegeben. Das Folder-Objekt oFld<\/b> hat diesen Titel, der nicht mit dem Pfad zu verwechseln ist. Den erhält man erst über einen Umweg:<\/p>\n Das ist soweit noch nicht sonderlich aufregend. Die Besonderheit der Windows-Shell <\/b>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<\/b> auch unterschiedliche Werte für den Parameter zuweisen, eben jene, die auch der Explorer verarbeiten kann. Hier einige Beispiele für mögliche Parameter:<\/p>\n Da kann die Dir<\/b>-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<\/b> handelt, die jeweils eine eindeutige ID<\/b> besitzen. Das sind vorgegebene Windows-Spezialordner, wie etwa der Desktop<\/b>, welcher über den Parameterwert 0<\/b> anzusprechen wäre. Mit der 3<\/b> hingegen erhalten Sie als Folder.Title<\/b> die Bezeichnung Systemsteuerung<\/b>, denn auch die ist ein virtueller Ordner. Und was wäre deren Pfad Folder.Self.Path<\/b> gibt dies aus:<\/p>\n Es handelt sich hier um einen GUID<\/b>-String, da es ja, im Gegensatz zum Desktop, keinen physischen Ordner für die Systemsteuerung gibt. Geben Sie diesen String einmal spaßeshalber in die Adresszeile des Explorers ein. Sie gelangen damit tatsächlich zur Systemsteuerung!<\/p>\n Selbst Internet-URLs<\/b> kann NameSpace<\/b> verarbeiten, wie die beiden folgenden Zeilen der Beispielparameter zeigen. Sowohl das HTTP<\/b>-Protokoll, wie auch das FTP<\/b>-Protokoll, werden klaglos angenommen. Hier kommen ebenfalls gültige Folder<\/b>-Objekte zustande!<\/p>\n Noch krasser ist die übergabe der ZIP<\/b>-Datei alles.zip<\/b>. Denn auch der Explorer behandelt ZIP<\/b>-Archive wie Ordner. Deshalb ist ein ZIP-Archiv automatisch auch bei NameSpace<\/b> ein gültiges Ordner-Objekt.<\/p>\n Hier wird schon deutlich, dass die Möglichkeiten der Shell-Objekte weit über das hinausgehen, was VBA an Bordmitteln zu bieten hat. <\/p>\n Aus dem bisher Erläuterten geht die einfachste Anwendung hervor, nämlich der Test, ob ein Verzeichnis denn existiert. übergeben Sie NameSpace<\/b> nämlich einen ungültigen String oder eine ungültige Zahl, so ereignet sich kein Fehler. Stattdessen ist das zurückgegeben Folder<\/b>-Objekt einfach leer, hat also quasi den Wert Nothing<\/b>. Das lässt sich nun leicht überprüfen, wie die Routine FolderExists<\/b> in Listing 1 zeigt. Ihr übergeben Sie das fragliche Verzeichnis als Parameter. In der Objektvariablen oFld<\/b> erhalten Sie aus NameSpace<\/b> das Folder<\/b>-Objekt. Ist dieses nicht Nothing<\/b>, so existiert das Verzeichnis, womit der Rückgabewert der Funktion auf True<\/b> gesetzt wird. Wohlgemerkt: Nicht nur lokale Verzeichnisse können mit dieser Funktion befragt werden, sondern ebenso Netzwerkpfade und Internetpfade!<\/p>\n Listing 1: überprüfen der Existenz eines Verzeichnisses<\/p>\n Nutzt man die Shell<\/b>-Funktionen in mehreren Prozeduren, so ist es übrigens hilfreich, statt dem dauernden Neuerzeugen des Shell<\/b>-Objekts für dieses eine gesonderte Funktion zu schreiben. Auch FolderExists<\/b> verwendet eine solche (oShell<\/b>), wie sie in Listing 2 abgebildet ist. Hier ist im Modulkopf die globale Variable m_Shell<\/b> deklariert. In der Prozedur wird erst getestet, ob deren Inhalt leer ist. In diesem Fall wird per New<\/b> eine neue Shell<\/b>-Instanz erzeugt und ihr zugewiesen. Die Funktion gibt schließlich den Wert der Objektvariablen m_Shell<\/b> zurück. <\/p>\n Listing 2: Funktion zum Zurückgeben des Shell-Objekts<\/p>\n Es gibt keine genaue Aufstellung von Microsoft, welche Zahlenwerte für NameSpace<\/b> welchem Spezialverzeichnis zuzuordnen sind. Das variiert je nach Betriebssystem und Sprache. Bei den gebräuchlichsten stimmen sie allerdings überein.<\/p>\n Den Desktop erreichen Sie immer über die 0<\/b>, das Startmenü über 22<\/b>, oder das Systemverzeichnis über 37<\/b>. Diese Werte sind im Windows-SDK<\/b> in den Header<\/b>-Dateien deklariert. Doch machen Sie für Ihr System doch einfach selbst die Aufstellung und verwenden die Routine StoreSpecialFolders<\/b> im Modul mdlSpcFolders<\/b> der Beispieldatenbank!<\/p>\n Die in Listing 3 dargestellte Prozedur speichert alle möglichen Werte in der Tabelle tblShellFolders<\/b>, die zuerst über die DELETE<\/b>-Anweisung geleert wird. Dann durchläuft eine Schleife auf den Zähler i<\/b> die Werte von 0<\/b> bis 255<\/b> und testet NameSpace<\/b> damit.<\/p>\n Listing 3: Alle Windows-Spezialordner kommen in die Tabelle tblShellFolders<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Dim <\/span>oShell As <\/span>Shell32.Shell\r\nSet<\/span> oShell = New<\/span> Shell32.Shell<\/pre>\nNameSpace<\/h2>\n
Dim <\/span>oShell As <\/span>New<\/span> Shell32.Shell\r\nDim <\/span>oFld As <\/span>Shell32.Folder\r\nSet<\/span> oFld = _\r\n oShell.NameSpace(\"c:\\windows\")\r\nDebug.Print<\/span> oFld.Title<\/pre>\nDebug.Print<\/span> oFld.Self.Path\r\n> c:\\windows<\/pre>\nc:\\windows\\\r\n<\/font>nas\\public\\images\r\n3\r\nhttp:\/\/www.access-im-unternehmen.de\r\nftp:\/\/ftp.rz.uni-wuerzburg.de\/pub\r\ne:\\dokumente\\alles.zip\r\n::{21EC2020-3AEA-1069-A2DD- _\r\n 08002B30309D}<\/pre>\n::{21EC2020-3AEA-1069-A2DD- _\r\n 08002B30309D}<\/pre>\nFolderExists<\/h2>\n
Function <\/span>FolderExists(sFolder As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>oFld As <\/span>Shell32.Folder\r\n \r\n Set<\/span> oFld = oShell.NameSpace(sFolder)\r\n If <\/span>Not<\/span> oFld Is Nothing Then<\/span> FolderExists = True<\/span>\r\nEnd Function<\/span><\/pre>\nPublic <\/span>m_Shell As <\/span>Shell32.Shell \r\nPublic Function <\/span>oShell() As <\/span>Shell32.Shell\r\n If <\/span>m_Shell Is Nothing Then<\/span> Set<\/span> m_Shell = New<\/span> Shell32.Shell\r\n Set<\/span> oShell = m_Shell\r\nEnd Function<\/span><\/pre>\nSpecial Folders<\/h2>\n
Sub <\/span>StoreSpecialFolders()\r\n Dim <\/span>fld As <\/span>Folder\r\n Dim <\/span>i As Long<\/span>\r\n Dim <\/span>sPath As String<\/span>\r\n Dim <\/span>rs As <\/span>DAO.Recordset\r\n \r\n CurrentDb.Execute \"DELETE FROM tblShellFolders\"\r\n Set<\/span> rs = CurrentDb.OpenRecordset(\"SELECT * FROM tblShellFolders\", dbOpenDynaset)\r\n On Error Resume Next<\/span>\r\n For i = 0 To 255\r\n Set<\/span> fld = oShell.NameSpace(i)\r\n Err.Clear\r\n sPath = fld.Self.Path\r\n If <\/span>Err.Number = 0 Then<\/span>\r\n rs.AddNew<\/span>\r\n rs!SFID = i\r\n rs![Name] = fld.Title\r\n rs!Path = sPath\r\n rs.Update\r\n End If<\/span>\r\n Next<\/span> i\r\n rs.Close\r\nEnd Function<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t