Beim entpacken der ZIP-Datei das kennwort mit übergeben

[Muhtar99]

Hallo Leute,

habe eine Zip-Datei der Kennwort geschütz ist. Diese möchte ich über VBA entpacken und dabei das Kennwort mit übergeben. Gibt es eine Funktion womit ich dies machen kann. MIt meiner Lösung kann ich nur stumpf entpacken aber kein Kennwort mit übergebn.


Danke im Voraus


MfG

Muhtar99

[Hondo]

Hallo,
wie willst du die Zip-Datei denn entpacken? mit welchem Tool?

Andreas

[Muhtar99]

Ja will ich.

Habe zur zeit ein Modul in access VBA womit ich die ZIP-Datei entpacken kann, kann aber kein kennwort beim entpacken mit übergeben.

Genau das will ich automatisiert über modul mitgeben.

Als Programm habe ich 7-zip auf dem rechner. kann aber alles andere wenn nötig installieren, hauptsache ich bekomme dies endlich hin.

Danke im Voraus

MfG

Muhtar99

[Hondo]

Hallo,

Habe zur zeit ein Modul in access VBA womit ich die ZIP-Datei entpacken kann,

Und was ist das für ein Modul, woher hast du das, Link zum Hersteller ..... *alles aus der Nase herausziehen*

[Hondo]

Hallo,
ein gutes Tool ist das sevZip, mit dem ist das möglich:
http://www.tools4vb.com/software/sevzip40.php

Andreas

[Muhtar99]

Hi,

mein VBA code den ich irgendwo gefunden habe sieht so aus :
Public Sub UNZIP()
    Dim objShell As Object
    Dim objZip As Shell32.folder
    Dim objFolder As Shell32.folder
    Dim i As Integer
    Set objShell = CreateObject("Shell.Application")
    'Set objZip = objShell.NameSpace("c:\zip.zip")
    Set objZip = objShell.NameSpace("U:\Eigene Dateien\test\test.zip")
   
    'Set objFolder = objShell.NameSpace("c:\")
   
    Set objFolder = objShell.NameSpace("U:\Eigene Dateien\test\")
    For i = 0 To objZip.Items.Count - 1
        objFolder.CopyHere objZip.Items.Item(i)
    Next i
    Set objZip = Nothing
    Set objShell = Nothing
End Sub

Weiss aber nicht wie ich hier das Kennwort mit übergeben soll.

[Muhtar99]

WIRKLICK KEINER EINE IDEE?

[database]

Hi,

hast du dir den Link angeschaut, den dir Andreas in #4 bereitgestellt hat - mit dem Ding ist das möglich...

[ebs17]

Als Programm habe ich 7-zip auf dem rechner.

Dann würde ich doch empfehlen, sich auch mit 7zip und dessen Möglichkeiten zu beschäftigen. Eine Google-Suche mit den Stichworten "7zip command line" liefert da allerhand Ansätze.

MfGA
ebs

[Muhtar99]

Danke euch hat jetzt mit 7zip geklappt...