<\/p>\n
Wie das Zippen unter Access mit Bordmitteln funktioniert, haben Sie im Artikel „Zippen mit Access“ erfahren. Im vorliegenden Beitrag schauen wir uns nun an, wie Sie die VBA-Funktionen zum Packen, Entpacken und Löschen von Elementen aus Zip-Dateien von einem Formular aus nutzen können, sodass auch reine Benutzer einer Anwendung damit arbeiten können.<\/b><\/p>\nFormular zum Verwalten einfacher Zip-Funktionen<\/h2>\n
Im Beitrag Zippen mit Access <\/b>(www.access-im-unternehmen.de\/1064<\/b>) haben wir einige Funktionen vorgestellt, mit denen Sie mit Zip-Dateien arbeiten können. Damit lassen sich neue Zip-Dateien erstellen, Dateien hinzufügen, Dateien aus Zip-Dateien extrahieren und die enthaltenen Dateien auflisten.<\/p>\n
Schließlich können Sie die enthaltenen Dateien auch aus dem Zip-Archiv löschen. Das Formular soll wie in Bild 1 aussehen. Das Formular bietet ein Textfeld, das den Namen der aktuellen Zip-Datei anzeigt.<\/p>\n
![\"Aussehen](\"..\/fileadmin\/_temp_\/2016_06\/pic_1067_001.png\")
<\/p>\n
Bild 1: Aussehen des fertigen Zip-Formulars<\/span><\/b><\/p>\n Mit der Schaltfläche mit den drei Punkten (…) können Sie einen Datei öffnen<\/b>-Dialog anzeigen, mit dem Sie die zu öffnende Zip-Datei auswählen können. Alternativ klicken Sie auf die Neu<\/b>-Schaltfläche, die einen Dialog zum Angeben des Namens für eine neue Zip-Datei öffnet.<\/p>\n Nach dem öffnen einer bestehenden Zip-Datei soll das Formular die enthaltenen Dateien im Listenfeld im unteren Bereich anzeigen. Das Listenfeld soll die Auswahl eines oder mehrerer Elemente ermöglichen, die dann wahlweise in einen noch zu spezifizierenden Ordner entpackt (Schaltfläche -><\/b>) oder aus dem Archiv entfernt werden (Schaltfläche –<\/b>).<\/p>\n Die Plus-Schaltfläche (+<\/b>) erlaubt es schließlich, einen weiteren Dateiauswahl-Dialog anzuzeigen, mit dem Sie die zur Zip-Datei hinzuzufügenden Dateien auswählen können. Diese werden dann nach dem Hinzufügen direkt im Listenfeld angezeigt. Nun beginnen wir mit dem Bau dieses Formulars.<\/p>\n Die Anwendung verwendet nur eine einzige Tabelle namens tblDateien<\/b>, die wie in Bild 2 aussieht. Wie diese gefüllt wird, erfahren Sie im Beitrag Zippen mit Access <\/b>(www.access-im-unternehmen.de\/1064<\/b>). Gegenüber der dort verwendeten Tabelle haben wir noch zwei Felder hinzugefügt.<\/p>\n Bild 2: Tabelle zum Speichern der Dateiinformationen der Dateien aus dem Zip-Archiv<\/span><\/b><\/p>\n Diese heißen GepackteGroesseText <\/b>und Ungepackte-GroesseText <\/b>und nehmen nicht den per Code ermittelten Zahlenwert für die Dateigröße auf, sondern den kompletten gelieferten Wert inklusive der Einheit, also etwa Bytes <\/b>oder KB<\/b>.<\/p>\n In der Entwurfsansicht sieht das Formular wie in Bild 3 aus. Da das Formular keine Datenherkunft besitzt und somit auch nicht zum Blättern durch Datensätze verwendet wird, stellen wir die Eigenschaften Navigationsschaltflächen<\/b>, Datensatzmarkierer<\/b>, Trennlinien <\/b>und Bildlaufleisten <\/b>auf den Wert Nein <\/b>ein. Die Eigenschaft Automatisch zentrieren <\/b>erhält den Wert Ja<\/b>.<\/p>\n Bild 3: Das Zip-Formular in der Entwurfsansicht<\/span><\/b><\/p>\n Das Textfeld erhält die Bezeichnung txtZipdatei<\/b>, das Listenfeld soll lstDateien <\/b>heißen. Die Schaltflächen statten Sie mit den Namen cmdDateiauswahl<\/b>, cmdNeu<\/b>, cmdDateiHinzufuegen<\/b>, cmdDateiEntfernen <\/b>und cmdEntpacken <\/b>aus. Für alle Schaltflächen hinterlegen wir entsprechende Ereignisprozeduren.<\/p>\n Damit wir mit dem Vergrößern des Formulars auch die entscheidenden Steuerelemente vergrößern können, stellen wir für das Textfeld txtZipdatei <\/b>die Eigenschaft Horizontaler Anker <\/b>auf Beide <\/b>ein.<\/p>\n Das Listenfeld lstDateien <\/b>soll nach rechts und nach unten vergrößerbar sein, also stellen wir nicht nur die Eigenschaft Horizontaler Anker<\/b>, sondern auch die Eigenschaft Vertikaler Anker <\/b>auf Beide <\/b>ein.<\/p>\n Beachten Sie, dass die entsprechenden Eigenschaften der mit den Steuerelementen verknüpften Bezeichnungsfelder automatisch geändert werden. Sie müssen also für das Bezeichnungsfeld des Textfeldes die Eigenschaft Horizontaler Anker <\/b>wieder auf Links <\/b>und für das Bezeichnungsfeld die Eigenschaft Horizontaler Anker <\/b>auf Links <\/b>und Vertikaler Anker <\/b>auf Oben <\/b>zurücksetzen.<\/p>\n Wenn Sie das Formular nun in der Formularansicht nach rechts vergrößern, überdecken das Textfeld und das Listenfeld die Schaltflächen. Diese sollen mit nach rechts verschoben werden. Also stellen Sie die Eigenschaft Horizontaler Anker <\/b>aller Schaltflächen auf den Wert Rechts <\/b>ein.<\/p>\n Das Laden des Formulars löst die Ereignisprozedur Form_Load<\/b> aus, die wie in Listing 1 aussieht. Die Prozedur erledigt einige vorbereitende Arbeiten. Gegebenenfalls wurde bereits zuvor eine Zip-Datei eingelesen oder angelegt, daher könnten sich noch Datensätze in der Tabelle tblDateien <\/b>befinden.<\/p>\n Listing 1: Prozedur, die durch das Ereignis Beim Laden ausgelöst wird<\/span><\/b><\/p>\n Diese sollen mit einer entsprechenden DELETE<\/b>-Anweisung gelöscht werden. Außerdem soll das Textfeld txtZipdatei <\/b>geleert und das Listenfeld aktualisiert werden, sodass es keine Datensätze mehr anzeigt.<\/p>\n Bild 4: Entwurf der Abfrage qryDateien<\/span><\/b><\/p>\n Das Listenfeld soll die Daten der Tabelle tblDateien<\/b> anzeigen, allerdings nicht alle Felder davon und außerdem in einer bestimmten Reihenfolge. Bild 4 zeigt, wie die Abfrage aufgebaut ist, um die gewünschten Daten zu liefern.<\/p>\n Die Abfrage verwendet die beiden Felder GepackteGroesseText <\/b>und UngepackteGroesseText <\/b>statt GepackteGroesse <\/b>und UngepackteGroesse<\/b>, da diese den Originalwert aus dem Zip-Archiv enthalten, der gleichzeitig die Einheit wie Bytes <\/b>oder KB <\/b>mitliefert. Die Felder GepackteGroesse <\/b>und UngepackteGroesse <\/b>enthalten die Zahlenwerte ohne Einheit, allerdings wird hieraus nicht deutlich, um welche Einheit es sich jeweils handelt. Das Ergebnis der Abfrage soll nach dem Wert des Feldes Dateiname <\/b>sortiert werden.<\/p>\n Die Abfrage speichern Sie unter dem Namen qryDateien<\/b> (s. Bild 4). Dann weisen Sie diesen Namen der Eigenschaft Datensatzherkunft <\/b>des Listenfeldes zu. Die Eigenschaft Spaltenanzahl <\/b>stellen Sie auf den Wert 6 <\/b>ein, die Eigenschaft Spaltenbreiten <\/b>auf den Wert 0cm;;4cm;2cm;2cm<\/b>.<\/p>\n Die erste Möglichkeit ist das Erstellen eines neuen, leeren Zip-Archivs. Dazu verwenden wir die Schaltfläche namens cmdNeu <\/b>mit der Beschriftung Neu<\/b>. Die Schaltfläche löst die Prozedur aus Listing 2 aus. Die Prozedur nutzt eine im Modul mdlDateiauswahl <\/b>abgelegte Funktion namens GetSaveFile<\/b>, um einen Dialog zur Angabe des zu verwendenden Dateinamens anzuzeigen (für weitere Informationen siehe Beispieldatenbank). Der aufgerufene Dialog filtert alle Dateien mit der Dateiendung .zip <\/b>und bietet gleich den Dateinamen *.zip <\/b>an (s. Bild 5).<\/p>\n <\/p>\n Bild 5: Festlegen des Namens einer neuen Zip-Datei<\/span><\/b><\/p>\n Der Name der zu erstellenden Datei wird dann in der Variablen strZipdatei <\/b>gespeichert. Die folgende Anweisung ruft dann die Methode ZipErstellen <\/b>auf und übergibt den Dateinamen, damit die neue Zip-Datei erstellt werden kann. Danach löscht die Prozedur alle aktuell in der Tabelle tblDateien <\/b>gespeicherten Datensätze und aktualisiert den Inhalt des Listenfeldes lstDateien<\/b>. Schließlich landet der Pfad zur neu erstellten Zip-Datei, die nun auch physisch auf der Festplatte liegt, im Textfeld txtZipdatei<\/b>.<\/p>\n Alternativ kann man mit der Schaltfläche mit den drei Punkten ein vorhandenes Zip-Archiv auswählen. Dessen Pfad soll dann ebenfalls im Textfeld txtZipdatei <\/b>erscheinen. Außerdem sollen die in der Zip-Datei enthaltenen Dateien im Listenfeld lstDateien <\/b>erscheinen. Dazu müssen diese natürlich zuvor in der Tabelle tblDateien <\/b>gespeichert werden.<\/p>\n Die beim Klick auf die Schaltfläche cmdDateiauswahl <\/b>ausgelöste Ereignisprozedur sieht wie in Listing 3 aus. Die Prozedur verwendet eine weitere Funktion des Moduls mdlDateiauswahl<\/b>, diesmal OpenFileName<\/b>. Diese Funktion öffnet einen Dialog, mit dem der Benutzer eine vorhandene Datei auswählen muss. Auch hier wird der Filter auf die Dateiendung .zip <\/b>eingestellt. Der Pfad zu der vom Benutzer ausgewählten Datei landet erst in der Variablen strZipdatei <\/b>und dann im Textfeld txtZipdatei<\/b>.<\/p>\n Listing 3: Auswählen einer vorhandenen Zip-Datei<\/span><\/b><\/p>\n Falls der Benutzer im Dialog die Schaltfläche Abbrechen <\/b>verwendet, liefert die Funktion eine leere Zeichenkette zurück. In diesem Fall geschieht nichts weiter.<\/p>\n Anderenfalls trägt die Prozedur den Pfad zur gewählten Datei in das Textfeld txtZipdatei <\/b>ein und ruft die Funktion ZipdateiUntersuchen <\/b>auf (siehe Beitrag Zippen mit Access<\/b>, www.access-im-unternehmen.de\/1064<\/b>). Diese öffnet die Zip-Datei, liest alle enthaltenen Elemente aus und trägt diese in die Tabelle tblDateien <\/b>ein.<\/p>\n Achtung: Dies gilt nur für die Dateien in der ersten Ebene, also nicht für Unterverzeichnisse in der Zip-Datei und darin enthaltene Elemente.<\/p>\n Das Formular sollte die Dateien nun etwa wie in Bild 6 anzeigen.<\/p>\n Bild 6: Das Formular nach dem Einlesen einer vorhandenen Zip-Datei<\/span><\/b><\/p>\n Egal, ob Sie ein neues Zip-Archiv angelegt oder ein bestehendes referenziert haben, können Sie nun neue Dateien zu diesem Zip-Archiv hinzufügen. Dazu klicken Sie einfach auf die Schaltfläche mit dem Plus-Zeichen (+<\/b>). Dies löst das Ereignis Beim Klicken <\/b>der Schaltfläche cmdNeu <\/b>aus (s. Listing 4). Sollte noch keine Zip-Datei angelegt oder ausgewählt worden sein, bricht die Prozedur mit einer entsprechenden Meldung ab.<\/p>\n Listing 4: Hinzufügen neuer Dateien zu einem Zip-Archiv<\/span><\/b><\/p>\n Anderenfalls schreibt die Prozedur als Erstes den Pfad zur Zip-Datei aus dem Textfeld txtZipdatei <\/b>in die Variable strZipdatei<\/b>. Dann ruft sie den Dialog zur Auswahl einer oder mehrerer Dateien auf. Diesen öffnet wiederum die Funktion OpenFileNameMultiple<\/b>, die Sie im Modul mdlDateiauswahl <\/b>finden. Hier werden diesmal alle Dateien angeboten (*.*<\/b>) – es geht ja schließlich nicht mehr um die Auswahl einer .zip<\/b>-Datei, sondern um die darin zu archivierenden Dateien. OpenFileNameMulti <\/b>liefert eine Zeichenkette mit den einzelnen Dateien, wobei diese jeweils durch das Tabulator-Zeichen voneinander getrennt werden. Die Dateinamenliste überführen wir in das Array strDateiarray<\/b>, und zwar mit der Funktion Split<\/b>, welche die Dateiliste nach den enthaltenen Tabulator-Zeichen aufsplittet. Diese durchläuft die Prozedur danach in einer For…Next<\/b>-Schleife. Darin ruft die Prozedur zuerst die Funktion Zippen <\/b>auf, welche den Namen der Zip-Datei, den Namen der hinzuzufügenden Datei aus dem Array strDateiarray<\/b>, den Rückgabeparameter lngAnzahl <\/b>sowie den Wert True <\/b>für den letzten Parameter erwartet. Dieser gibt an, dass einzelne Dateien hinzugefügt werden sollen (siehe auch Beitrag Zippen mit Access<\/b>, www.access-im-unternehmen.de\/1064<\/b>). Die zweite Anweisung innerhalb der For…Next<\/b>-Schleife addiert die Anzahl der hinzugefügten Dateien aus dem Rückgabeparameter lngAnzahl <\/b>zur Variablen lngAnzahlGesamt<\/b>.<\/p>\n Hat lngAnzahlGesamt<\/b> nach dem Durchlaufen der Schleife einen Wert größer als 0<\/b>, ruft die Prozedur die Routine ZipdateiUntersuchen <\/b>aus dem Modul mdlZippen <\/b>auf und übergibt den Pfad zu der soeben befüllten Zip-Datei. Damit werden die in der Tabelle tblDateien <\/b>aufgelisteten Dateien der Zip-Datei aktualisiert. Ein Requery aktualisiert schließlich das Listenfeld, damit dieses die aktuell in der Tabelle tblDateien <\/b>gespeicherten Datensätze anzeigt.<\/p>\n Wenn Sie eine Datei aus einem Zip-Archiv löschen wollen, erledigen Sie das durch vorheriges Markieren der zu löschenden Einträge im Listenfeld. Damit Sie mehr als einen Eintrag markieren können, haben wir die Eigenschaft Mehrfachauswahl <\/b>auf den Wert Erweitert <\/b>eingestellt. Das heißt, dass Sie die Einträge wie im Windows Explorer auswählen können. Dabei markieren Sie einen einzelnen Eintrag einfach per Mausklick, zusammenhängende Einträge, indem Sie den ersten Eintrag anklicken und dann bei gedrückter Umschalttaste den letzten Eintrag und nicht zusammenhängende Einträge durch Anklicken bei gedrückter Strg<\/b>-Taste.<\/p>\n Die Prozedur aus Listing 5 wird durch einen Mausklick auf die Schaltfläche cmdDateiEntfernen <\/b>ausgelöst. Sie deklariert eine Zeichenkette namens strDatei <\/b>und eine Variant<\/b>-Variable namens varDatei <\/b>sowie eine Variable namens strZipdatei <\/b>zum Aufnehmen des im Textfeld txtZipdatei <\/b>gespeicherten Pfads zur Zip-Datei.<\/p>\n Listing 5: Entfernen von Dateien aus dem Zip-Archiv<\/span><\/b><\/p>\n In einer For Each<\/b>-Schleife durchläuft sie alle Elemente der Auflistung ItemsSelected <\/b>des Listenfeldes, welche alle markierten Einträge liefert. Die Variable varDatei <\/b>nimmt dabei jeweils den Index des aktuell durchlaufenen Eintrags auf. über die Column<\/b>-Funktion mit dem Spaltenindex 1 <\/b>und dem Index aus der Variablen varDatei <\/b>ermittelt die Prozedur innerhalb der Schleife den Inhalt der ersten Spalte des aktuellen Eintrags und speichert diesen in der Variablen strDatei<\/b>.<\/p>\n In der zweiten Anweisung ruft die Prozedur die Funktion AusZipLoeschen <\/b>auf, die wir im Beitrag Zippen mit Access <\/b>(www.access-im-unternehmen.de\/1064<\/b>) vorstellen. Dieser übergibt sie den Namen der Zip-Datei sowie den Namen der zu entfernenden Datei. Diese Funktion löscht das genannte Element aus dem Zip-Archiv.<\/p>\n Achtung: Auch dies funktioniert nur für Dateien, die sich in der ersten Ebene des Zip-Archivs befinden.<\/p>\n Kommen wir nun zum Entpacken von Dateien aus dem aktuell angezeigten Zip-Archiv. Dies erledigen Sie mit der Schaltfläche cmdEntpacken<\/b>. Die entsprechende Ereignisprozedur finden Sie in Listing 6.<\/p>\n Listing 6: Extrahieren von Dateien aus einem Zip-Archiv<\/span><\/b><\/p>\n Die Prozedur erfragt zunächst über die Funktion Open-Path-name <\/b>das Verzeichnis, in das die markierten Listenelemente extrahiert werden sollen (s. Bild 7). Diese Funktion finden Sie wie die anderen Funktionen zur Dateiauswahl im Modul mdlDateiauswahl<\/b>. Sie erwartet das Startverzeichnis sowie eine überschrift als Parameter und liefert den Pfad des gewählten Verzeichnisses als Rückgabewert.<\/p>\n Bild 7: Auswahl des Zielverzeichnisses zum Extrahieren von Dateien<\/span><\/b><\/p>\n Danach durchläuft sie ebenfalls eine For Each<\/b>-Schleife über alle markierten Einträge des Listenfeldes lstDateien<\/b>. Die Namen der zu extrahierenden Dateien werden ebenfalls über die ItemsSelected<\/b>-Eigenschaft und die Column<\/b>-Eigenschaft ermittelt und in die Variable strDatei <\/b>eingetragen. Die zweite Anweisung der For Each<\/b>-Schleife ruft die Funktion EntzippenEinzeln <\/b>des Moduls mdlZippen <\/b>auf – siehe Beitrag Zippen mit Access <\/b>(www.access-im-unternehmen.de\/1064<\/b>). Diese erwartet als Parameter den Namen der Zipdatei, das Zielverzeichnis sowie den Namen der zu extrahierenden Datei.<\/p>\n Zugegebenermaßen sieht das Formular, insbesondere die Schaltflächen, wenig liebevoll gestaltet aus. Also wollen wir die Schaltflächen zumindest noch mit ein paar Icons versehen und diese oberhalb des Listenfeldes anordnen – so wie Sie es vielleicht von Programmen wir WinZip oder WinRar kennen.<\/p>\n Markieren Sie eine Schaltfläche, beispielsweise cmdNeu<\/b>, und wählen Sie dann den Ribbon-Eintrag Bild einfügen|Durchsuchen <\/b>auf. Wenn Sie eine Sammlung von Icons haben, in denen sich passende Icons finden, können Sie diese nun auswählen und so zu den jeweiligen Schaltflächen hinzufügen.<\/p>\n Die Eigenschaft Hintergrundart <\/b>der Schaltflächen stellen wir auf Transparent <\/b>ein, die Größe muss natürlich entsprechend der Bildgröße angepasst werden (im Beispiel etwa für 32×32 Pixel große Icons).<\/p>\n Die Eigenschaft Horizontaler Anker <\/b>stellen Sie nun wieder auf Links <\/b>ein (weiter oben haben wir diese auf Rechts <\/b>eingestellt). Außerdem fügen wir noch eine Schaltfläche zum Schließen des Formulars hinzu und platzieren diese am rechten Rand – mit der Einstellung Rechts <\/b>für die Eigenschaft Horizontaler Anker<\/b>. Wenn wir nun noch die Eigenschaft Rahmenart auf Keine einstellen, erhalten wir das schicke Formular aus Bild 8.<\/p>\nTabellen der Anwendung<\/h2>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2016_06\/pic_1067_003.png\")
<\/p>\nEntwurfsansicht<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2016_06\/pic_1067_002.png\")
<\/p>\nSteuerelemente verankern<\/h2>\n
Beim Laden des Formulars<\/h2>\n
Private Sub <\/span>Form_Load()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n Me!txtZipdatei = Null\r\n db.Execute \"DELETE FROM tblDateien\", dbFailOnError\r\n Me!lstDateien.Requery\r\nEnd Sub<\/span><\/pre>\nDatensatzherkunft des ListenBild 4feldes<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2016_06\/pic_1067_006.png\")
<\/p>\nLeeres Zip-Archiv erstellen<\/h2>\n
![\"Festlegen](\"..\/fileadmin\/_temp_\/2016_06\/pic_1067_004.png\")
<\/p>\nVorhandenes Zip-Archiv öffnen<\/h2>\n
Private Sub <\/span>cmdDateiauswahl_Click()\r\n Dim <\/span>strZipdatei As String<\/span>\r\n strZipdatei = OPENFILENAME(CurrentProject.Path, \"Zip-Datei auswählen\", \"Zip-Archiv(*.zip)\")\r\n If <\/span>Len<\/span>(strZipdatei) > 0 Then<\/span>\r\n Me!txtZipdatei = strZipdatei\r\n ZipdateiUntersuchen strZipdatei\r\n Me!lstDateien.ColumnWidths = Me!lstDateien.ColumnWidths\r\n Me!lstDateien.Requery\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2016_06\/pic_1067_005.png\")
<\/p>\nDateien zum Zip-Archiv hinzufügen<\/h2>\n
Private Sub <\/span>cmdDateiHinzufuegen_Click()\r\n Dim <\/span>strDateien As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>strZipdatei As String<\/span>\r\n Dim <\/span>strDateiarray() As String<\/span>\r\n Dim <\/span>lngAnzahl As Long<\/span>\r\n Dim <\/span>lngAnzahlGesamt As Long<\/span>\r\n If <\/span>Not<\/span> Len<\/span>(Me!txtZipdatei) = 0 Then<\/span>\r\n strZipdatei = Me!txtZipdatei\r\n strDateien = OpenFileNameMultiple(CurrentProject.Path, \"Dateien auswählen\", \"Alle Dateien (*.*)\")\r\n strDateiarray = Split<\/span>(strDateien, vbTab)\r\n For i = LBound<\/span>(strDateiarray) To UBound<\/span>(strDateiarray)\r\n Zippen strZipdatei, strDateiarray(i), lngAnzahl, True<\/span>\r\n lngAnzahlGesamt = lngAnzahlGesamt & lngAnzahl\r\n Next<\/span> i\r\n If <\/span>lngAnzahlGesamt > 0 Then<\/span>\r\n ZipdateiUntersuchen strZipdatei\r\n Me!lstDateien.Requery\r\n End If<\/span>\r\n Else<\/span>\r\n MsgBox<\/span> \"Keine Zip-Datei angelegt oder ausgewählt.\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nEntfernen einer Datei aus dem Zip-Archiv<\/h2>\n
Private Sub <\/span>cmdDateiEntfernen_Click()\r\n Dim <\/span>strDatei As String<\/span>\r\n Dim <\/span>varDatei As Variant<\/span>\r\n Dim <\/span>strZipdatei As String<\/span>\r\n strZipdatei = Me!txtZipdatei\r\n For Each varDatei In Me!lstDateien.ItemsSelected\r\n strDatei = Me!lstDateien.Column(1, varDatei)\r\n AusZipLoeschen strZipdatei, strDatei\r\n Next<\/span> varDatei\r\nEnd Sub<\/span><\/pre>\nEntpacken von Dateien eines Zip-Archivs<\/h2>\n
Private Sub <\/span>cmdEntpacken_Click()\r\n Dim <\/span>strZielverzeichnis As String<\/span>\r\n Dim <\/span>strDatei As String<\/span>\r\n Dim <\/span>varDatei As Variant<\/span>\r\n Dim <\/span>strZipdatei As String<\/span>\r\n strZielverzeichnis = OpenPathName(CurrentProject.Path, \"Zielverzeichnis auswählen\")\r\n If <\/span>Not<\/span> Len<\/span>(strZielverzeichnis) = 0 Then<\/span>\r\n strZipdatei = Me!txtZipdatei\r\n For Each varDatei In Me!lstDateien.ItemsSelected\r\n strDatei = Me!lstDateien.Column(1, varDatei)\r\n EntzippenEinzeln strZipdatei, strZielverzeichnis, strDatei\r\n Next<\/span> varDatei\r\n Else<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2016_06\/pic_1067_007.png\")
<\/p>\nFormular schön machen<\/h2>\n
![\"Optisch](\"..\/fileadmin\/_temp_\/2016_06\/pic_1067_008.png\")
<\/p>\n