![\"Die](\"..\/tl_files\/images\/Objektkatalog_Shell.png\")
<\/a><\/p>\nBild 1: Die Shell32-Bibliothek, im VBA-Objektkatalog dargestellt<\/p>\n
Eine Instanz dieser Klasse erhalten Sie einfach über die New<\/b>-Zuweisung an eine Objektvariable:<\/p>\n Hier sollte nicht unerwähnt bleiben, dass die ganze Angelegenheit auch komplett ohne einen Bibliotheksverweis auskäme. Folgender Ausdruck erzeugt nämlich ebenfalls das Shell-Objekt:<\/p>\n Haben Sie nun das Hauptobjekt, so können Sie sogleich allerlei Methoden desselben ansprechen. So öffnet etwa die Methode objShell.FileRun<\/b> den Ausführen<\/b>-Dialog von Windows, oder TrayProperties<\/b> den Dialog zu Einstellungen der Taskleiste. Warum Microsoft ausgerechnet solche Funktionen in die COM-Schnittstelle verbaute, ist nicht recht nachvollziehbar, da man sie programmgesteuert wohl höchst selten aufrufen wird. Sie interessieren uns auch nicht weiter. Lediglich die Funktion NameSpace<\/b> ist für unsere Belange wichtig: sie allein gibt ein Folder<\/b>-Objekt, also ein Verzeichnis, zurück. Dazu übergibt man ihr als Parameter den Verzeichnisnamen:<\/p>\n Auf den Methodennamen NameSpace<\/b> würde man wahrscheinlich nicht kommen und eher so etwas wie GetFolder<\/b> erwarten. Grund für die Bezeichnung ist, dass sie eben nicht nur physische Verzeichnisse ermittelt, sondern auch virtuelle, wie dies beim Zip-Archiv vorliegt. Statt des Verzeichnispfads nimmt sie etwa auch Zahlen entgegen. Versuchen Sie dies:<\/p>\n Ergebnis wäre der String Desktop<\/b>. (Title<\/b> ist die Methode zum Auslesen der Bezeichnung eines Folder-Objekts.) Der komplette Pfadname ist etwas umständlicher zu ermitteln:<\/p>\n Das ergibt etwa C:\\Users\\André\\Desktop<\/b>. Sie können nun mit den Zahlenparametern experimentieren. übergeben Sie die 3, so erhalten Sie als Bezeichnung Systemsteuerung<\/b>. Tatsächlich lässt sich die Systemsteuerung ja im Explorer-Baum an-zeigen. Was aber ist deren Pfad Sie erhalten den Ausdruck<\/p>\n Diese GUID<\/b> symbolisiert einen virtuellen Ordner. Machen Sie die Probe aufs Exempel und setzen diese GUID als String für den Pfadnamen ein:<\/p>\n objShell.NameSpace(„::{21EC2020-3AEA-1069-A2DD-08002B30309D}“).Title<\/p>\n Auch das geht und liefert uns abermals die Bezeichnung Systemsteuerung<\/b>. <\/p>\n Zusammengefasst also nimmt NameSpace<\/b> als Parameter sowohl Verzeichnis-Strings entgegen, wie auch Zahlenwerte (die sogenannten KnownFolder-ID<\/b>s) und schließlich GUIDs (KnownFolder-CLSID<\/b>s) als Strings.<\/p>\n Wenden wir uns nach diesem Ausflug in den Shell-Namespace wieder den Zip-Archiven zu. Sie können sicher erraten, wie eine Zip-Datei als Folder<\/b>-Objekt zu erhalten ist: Sie übergeben einfach deren Dateinamen. Ein Beispiel:<\/p>\n Als nächstes interessiert uns natürlich der Inhalt eines Ordners – in diesem Fall die enthaltenen Dateien. Die Folder<\/b>-Klasse sieht dafür die Auflistungs-Eigenschaft Items<\/b> vor, welche sich über eine For-Next<\/b>-Schleife durchlaufen lässt. Jedes Element der Items<\/b>-Auflistung ist vom Typ FolderItem<\/b>. Möchten Sie die Namen der Dateien im Ordner ausgeben, so käme etwa diese Routine infrage:<\/p>\n Auf diese Weise können Sie die in einem Zip-Archiv befindlichen Dateien inspizieren. Dabei sollte noch erwähnt werden, dass das Archiv wiederum Ordner enthalten kann. Nur dann weist die Eigenschaft IsFolder<\/b> des entsprechenden FolderItems den Wert True<\/b> auf, und die Eigenschaft Type<\/b> gibt einen Text aus, der genau der Bezeichnung im Explorer entspricht. Je nach System kann diese Bezeichnung allerdings unterschiedlich sein. Ist etwa ein Packprogramm installiert, so könnte die Bezeichnung WinRAR ZIP-Archiv<\/b> lauten. <\/p>\n Wie jedoch lassen sich die Dateien oder Ordner des Archivs nun entpacken Im Objektkatalog findet man weder zum FolderItem<\/b>, noch zum Folder<\/b>-Objekt Funktionsnamen, wie Extract<\/b> oder Uncompress<\/b>, die dafür dienlich sein könnten. Das aber ist einleuchtend, da die Shell das Archiv als normalen Ordner ansieht und somit lediglich jene Methoden anbietet, die auch für Dateien eines Verzeichnisses gälten. Im Explorer können Sie eine Datei aus dem Archiv extrahieren, indem Sie sie entweder per Drag&Drop verschieben, oder indem Sie sie kopieren und in einen anderen Ordner einfügen. Genau das geht auch hier über die CopyHere<\/b>-Funktion eines Folder<\/b>-Objekts. Diese Methode erwartet als Parameter ein Folder<\/b>– oder FolderItem<\/b>-Objekt. Der Vorgang hat folgendermaßen auszusehen:<\/p>\n Sie setzen zuerst ein Folder-Objekt auf das Zielverzeichnis. Dann benutzen Sie dessen CopyHere<\/b>-Methode, um in dieses Verzeichnis Dateien oder Ordner zu kopieren, wobei diese in Form von zuvor erzeugten FolderItems<\/b> daher kommen müssen. <\/p>\n Machen wir den Test und versuchen das Archiv test.zip<\/b> in einen Ordner d:\\testordner<\/b> zu extrahieren:<\/p>\n Leider wird das Archiv damit nicht entpackt, sondern nur eine Kopie der Zip-Datei angelegt – eigentlich klar, da das Objekt objZipFolder<\/b> ja das Archiv selbst kennzeichnet, nicht dessen Inhalt. Folglich muss hier die oben angeführte Routine zum Auslesen der FolderItems<\/b> modifiziert werden:<\/p>\n Und tatsächlich: Im Zielordner laden damit die Dateien des Archivs! Sollte das Archiv Unterordner mit Dateien enthalten, so werden auch diese alle anstandslos entsprechend der Struktur angelegt. Es ist also nicht etwa nötig, diese Unterordner und Dateien in der Routine alle einzeln anzusprechen. <\/p>\n Wichtig ist auch die Zeile mit der DoEvents<\/b>-Anweisung. Da der Shell-Prozess asynchron arbeitet, ist er unter Umständen noch mit dem Kopieren eines Items beschäftigt, während VBA bereits mit dem Code fortfährt – die CopyHere<\/b>-Methode wartet nicht auf den Vollzug! Es hat sich gezeigt, dass ohne ein DoEvents manchmal Dateien unterschlagen werden.<\/p>\n Bei umfangreicheren Archiven werden Sie feststellen, dass sich beim Ausführen der Routine automatisch der Windows-Fortschrittsdialog öffnet. Das Shell<\/b>-Objekt verhält sich also exakt gleich, wie beim manuellen Kopieren von Dateien im Explorer. In Maßen lässt sich das Verhalten jedoch über einen zweiten optionalen Parameter von CopyHere<\/b> steuern, den wir bisher unterschlagen haben. Mit Options<\/b> kann man eine Kombination von Steuerkonstanten übergeben, die Sie im Modul mdlZipShell<\/b> der Beispieldatenbank kommentiert als Enumeration eFileOp<\/b> finden. So bewirkt etwa die Angabe von eOpNoProgress<\/b>, dass sich eben kein Fortschrittsdialog öffnet. Oder eOpAllowUndo<\/b> weist an, dass die Operation wieder rückgängig gemacht werden kann. In unserem Fall hieße das, dass Sie im Explorer dann das Rückgängig-Symbol betätigen könnten, wodurch sich das Zielverzeichnis wieder leeren würde. Interessant ist auch die Konstante eOpNewName<\/b>. Ohne deren Angabe würde eine existierende Datei mein.txt<\/b> im Zielverzeichnis nicht überschrieben, sondern automatisch mit einem neuen Namen kopiert; also etwa in Kopie von mein.txt<\/b> oder mein(1).txt<\/b>. <\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Dim <\/span>objShell As <\/span>New<\/span> Shell32.Shell<\/pre>\nDim <\/span>objShell As Object<\/span>\r\nSet<\/span> objShell = _\r\n CreateObject(\"Shell.Application\")<\/pre>\nDim <\/span>objFolder As <\/span>Shell32.Folder\r\nSet<\/span> objFolder = objShell.NameSpace ( _\r\n \"c:\\windows\")<\/pre>\n objShell.NameSpace(0).Title<\/pre>\n
objShell.NameSpace(0).Self.Path<\/pre>\n
::{21EC2020-3AEA-1069-A2DD-08002B30309D}<\/pre>\nSet<\/span> objFolder = objShell.NameSpace ( _\r\n \"d:\\beispiele\\test.zip\")<\/pre>\nDim <\/span>objItm As <\/span>FolderItem\r\nFor Each objItm in objFolder.Items\r\n Debug.Print<\/span> objItm.Name\r\nNext<\/span> objItm<\/pre>\nFolderItems extrahieren<\/h2>\n
Dim <\/span>objZiel As <\/span>Folder\r\nSet<\/span> objZiel = objShell.NameSpace( _\r\n \"d:\\testordner\")\r\nobjZiel.CopyHere objZipFolder<\/pre>\nDim <\/span>objItm As <\/span>FolderItem\r\nFor Each objItm in objFolder.Items\r\n objZiel.CopyHere objItm\r\n DoEvents\r\nNext<\/span> objItm<\/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