<\/p>\n
Zippen unter VBA ging bislang nur mit Komponenten von Drittherstellern. Dabei liefert Windows (ab XP) doch alles, was man dazu braucht – zwar nicht den Komfort, den „richtige“ Zip-Anwendungen wie WinZip und Co. bieten, aber immerhin brauchen Sie keine zusätzlichen Tools zu installieren. Wir zeigen Ihnen, wo die Zip-Funktionen von Windows stecken und wie Sie diese in Ihren Anwendungen einsetzen.<\/b><\/p>\n
Wer mit Windows XP arbeitet, ist es gewohnt, Zip-Dateien auch ohne zusätzliches Zip-Tool zu öffnen. Der Windows Explorer zeigt sogar den Inhalt von Zip-Dateien an, wenn man diese in der Ordner-Ansicht markiert.<\/p>\n
Die dort enthaltenen Funktionen lassen sich auch per VBA ansteuern. Dazu braucht man lediglich einen Verweis auf die Bibliothek Microsoft Shell Controls and Automation <\/b>und die folgenden VBA-Routinen.<\/p>\n
Der Ausgangspunkt für das Zippen sind üblicherweise eine oder mehrere Dateien und\/oder Verzeichnisse. Diese sollen unter Beibehaltung der Struktur der enthaltenen Verzeichnisse in eine Zip-Datei geschrieben und wiederhergestellt werden können.<\/p>\n
Die oben genannte Bibliothek liefert hierzu zunächst einmal wenig Erbauliches – zumindest, wenn man sich die enthaltenen Methoden und Eigenschaften im Objektkatalog ansieht. Dort kommt man erst weiter, wenn man sich vor Augen führt, was im Windows Explorer geschieht, wenn Sie Dateien aus einer Zip-Datei in ein normales Verzeichnis überführen und umgekehrt – Sie kopieren dort nämlich etwas. Und zum Thema Kopieren liefert die Bibliothek immerhin schon einmal die Methode CopyHere<\/b>.<\/p>\n
Und wenn Sie sich noch ein wenig von der Vorstellung lösen, dass ein Zip-File eine Datei sei und diese mehr als Ordner verstehen, haben Sie fast alles zusammen, was Sie brauchen: Die Methode CopyHere <\/b>gehört nämlich zum Folder<\/b>-Objekt.<\/p>\n
Es gibt also ein Folder<\/b>-Objekt, das Sie offensichtlich mithilfe der CopyHere<\/b>-Methode mit irgendetwas füllen können. Woher beziehen wir das Folder-Objekt, das der Zip-Datei entsprechen sollte Ein weiterer Blick in den Objektkatalog zeigt, dass die Methode Namespace <\/b>des Shell<\/b>-Objekts ein Objekt des Typs Folder <\/b>zurückliefert – und zwar nach Angabe eines Parameters vDir<\/b>. Dieser kann beispielsweise eine Zeichenkette mit dem Pfad zur Zip-Datei enthalten.<\/p>\n
Zip-Datei erstellen<\/b><\/p>\n
Allerdings haben wir ja eigentlich noch gar keine Zip-Datei. Und das Erstellen nimmt uns die Shell32<\/b>-Bibliothek leider nicht ab. Sind wir hier schon am Ende unseres Weges Mitnichten. Wir legen einfach ein Zip-Archiv mit einem herkömmlichen Zip-Programm an und löschen anschließend die darin archivierten Dateien. Übrig bleibt ein leeres Zip-Archiv, dessen Inhalt der Hex-Editor aus Bild 1 liefert. Die Routine CreateZipFile <\/b>erstellt einfach eine neue, leere Datei und fügt die soeben ermittelten Zeichen zur Datei hinzu, bevor sie diese schließt.<\/p>\n
![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2008_06\/Zippen-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Ein leeres Zip-Archiv im Hex-Editor<\/span><\/b><\/p>\n <\/p>\n Der folgende Aufruf erzeugt beispielsweise eine Zip-Datei, die Sie ganz normal mit WinZip und Konsorten öffnen können:<\/p>\n Zip-Archiv füllen<\/b><\/p>\n Nun wollen wir dieses Archiv mit einer Datei füllen. Auf Basis der gewonnenen Erkenntnisse schreiben wir die Routine aus Listing 2 herunter. Diese besitzt eine Objektvariable für das Shell-Objekt der Shell32<\/b>-Bibliothek und zwei für das Folder<\/b>-Objekt – je eines für die Quelldatei(en) und für das Zip-Archiv. Die Routine ruft automatisch die Prozedur CreateZipfile<\/b> auf, um die benötigte Zip-Datei zu erzeugen. Dann erzeugt sie die drei Objekte, wobei objZip <\/b>auf Basis des im Parameter strZip <\/b>angegebenen Zip-Archivs und objSource <\/b>auf Basis von strSource <\/b>erstellt wird. Anschließend reicht ein einfacher Aufruf der Methode CopyHere<\/b>, um die Quelle – egal, ob es sich um eine Datei oder ein Verzeichnis handelt – in das Zip-Archiv zu kopieren.<\/p>\n Zip-Archiv extrahieren<\/b><\/p>\n Auch beim Extrahieren von Dateien aus Zip-Archiven hilft die Shell32<\/b>-Klasse. Dabei kommen gegenüber dem Hinzufügen von Dateien zur Zip-Datei keine wesentlichen, neuen Techniken zum Zuge. Der Unterschied besteht darin, dass nun die CopyHere<\/b>-Methode des Folder<\/b>-Objekts auf Basis des Zielverzeichnisses verwendet wird und das Zip-Archiv als Quelle dient. Allerdings wird nicht das komplette Zip-Archiv kopiert, sondern nur die darin enthaltenen Dateien – anderenfalls würde Shell32 <\/b>einfach nur eine Kopie des Zip-Archivs im Zielverzeichnis anlegen.<\/p>\n Um dies zu realisieren, brauchen Sie lediglich eine For…Next<\/b>-Schleife, die alle im Zip-Archiv enthaltenen Elemente durchläuft. Die Verzeichnisstruktur stellt CopyHere <\/b>automatisch auf Basis der im Zip-Archiv angegebenen Pfad-Angaben wieder her. Ein Beispiel zeigt Abb. 2: Das dortige Verzeichnis Testdir1 <\/b>sieht in einer Zip-Datei unter WinZip wie in Bild 3 aus. Der zum Zippen notwendige Befehl lautet:<\/p>\n Bild 2: Zip-Archiv im Windows Explorer<\/span><\/b><\/p>\n Bild 3: Zip-Archiv mit Dateien aus verschiedenen Verzeichnisebenen<\/span><\/b><\/p>\n Rückwärts geht es dann mit der folgenden Anweisung, die dafür sorgt, dass alle Dateien samt Verzeichnissen zum Ordner c:\\testdir1 <\/b>hinzugefügt werden:<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Die hier vorgestellten Routinen bilden den Grundstock für das Arbeiten mit der Zip-Funktion von Windows. Sie können diese leicht erweitern, etwa durch Hinzufügen des Aufrufs eines Datei öffnen<\/b>-Dialogs zum Auswählen der für das Zip-Archiv vorgesehenen Dateien oder um eine Abfrage, wie bestehende Zip-Archive zu behandeln sind: Sollen diese gelöscht und überschrieben werden oder soll die Routine die neuen Dateien einfach zum Archiv hinzufügen Grundsätzlich ist diese Variante gegenüber jenen mit zusätzlichen Zip-Komponenten vorteilhaft, weil man eben nur die Access-Datenbank weitergeben muss. Wofür aber brauchen Sie so eine Zip-Funktion Nun, sie könnten beispielsweise Berichte im Snapshot-Format exportieren, diese per Zip komprimieren und anschließend per E-Mail versenden. Oder Sie lesen die gezippten Anhänge bestimmter E-Mails von Outlook automatisiert ein und entpacken diese, um sie anschließend in eine Datenbank einzulesen.<\/p>\n Listing 2: Hinzufügen von Verzeichnissen und Dateien zu einem Zip-Archiv<\/p>\n Listing 1: Diese Routine legt ein leeres Zip-Archiv an.<\/p>\n Listing 3: Entpacken von Verzeichnissen und Dateien aus einem Zip-Archiv<\/p>\n Enthaltene Beispieldateien:<\/p>\n Zippen.mdb<\/p>\nCreateZipFile "c:\\test.zip"<\/pre>\n
![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2008_06\/Zippen-web-images\/pic003_opt.jpeg\")
<\/p>\n![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2008_06\/Zippen-web-images\/pic002_opt.jpeg\")
<\/p>\nVBAZip "c:\\testdir1", "c:\\test.zip"<\/pre>\n
VBAUnzip "c:\\test.zip", "c:\\testdir1"<\/pre>\n
Public Function CreateZipfile(strZipfile As String) As Boolean\r\n If Len(Dir(strZipfile)) > 0 Then\r\n Kill strZipfile\r\n End If\r\n Open strZipfile For Output As #1\r\n Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)\r\n Close #1\r\nEnd Function<\/pre>\n
Public Sub VBAUnzip(strZip As String, strTarget As String)\r\nDim objShell As Shell32.Shell\r\nDim objZip As Shell32.Folder\r\nDim objTarget As Shell32.Folder\r\nDim i As Integer\r\nSet objShell = CreateObject("Shell.Application")\r\nSet objZip = objShell.NameSpace(strZip)\r\nSet objTarget = objShell.NameSpace(strTarget)\r\nFor i = 0 To objZip.Items.Count - 1\r\n objTarget.CopyHere objZip.Items.Item(i)\r\nNext i\r\nSet objZip = Nothing\r\nSet objShell = Nothing\r\nEnd Sub\r\nPublic Sub VBAZip(strSource As String, strZip As String)\r\nDim objShell As Shell32.Shell\r\nDim objZip As Shell32.Folder\r\nDim objSource As Shell32.Folder\r\nCreateZipfile strZip\r\nSet objShell = CreateObject("Shell.Application")\r\nSet objZip = objShell.NameSpace(strZip)\r\nSet objSource = objShell.NameSpace(strSource)\r\nobjZip.CopyHere objSource\r\nSet objZip = Nothing\r\nSet objShell = Nothing\r\nEnd Sub<\/pre>\nDownloads zu diesem Beitrag<\/h3>\n