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
Hallo,
wie willst du die Zip-Datei denn entpacken? mit welchem Tool?
Andreas
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
Hallo,
ZitatHabe 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*
Hallo,
ein gutes Tool ist das sevZip, mit dem ist das möglich:
http://www.tools4vb.com/software/sevzip40.php
Andreas
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.
WIRKLICK KEINER EINE IDEE???? :(
Hi,
hast du dir den Link angeschaut, den dir Andreas in #4 bereitgestellt hat - mit dem Ding ist das möglich...
ZitatAls 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
Danke euch hat jetzt mit 7zip geklappt...