Zip-Archiv entpacken
08.05.2019 11:24:22
ing.grohn
ich benutze folgende Funktion um Zip-Archive zu entpacken:
Public Function UnZipFile(sFile As String, sLoc As String)
Dim ZipObj As Object
Set ZipObj = CreateObject("Shell.Application")
With ZipObj
.Namespace((sLoc)).CopyHere .Namespace((sFile)).items
End With
End Function
funktioniert ganz gut.
Gib es einen Schalter/Parameter der automatisch bei mehrfach auftretenden Dateinamen alle Dateien ohne Nachfrage erhält (kommen aus verschiedenen Zip-Files und werden in ein Verzeichnis entpackt)?
Für Eure Bemühungen vielen Dank.
MfG
Albrecht