Contents of a Zip File 1

[Mach01]

I am trying to find the contents of a zip file. I found this code on the forum but it only finds the first layer of the structure and not the folders sub folders and their contents.

Dim shApp As Shell32.Shell
Dim shFolder As Shell32.Folder, shFolder2 As Shell32.Folder
Dim shFolderItem As Shell32.FolderItem, shFolderItem2 As Shell32.FolderItem
Set shApp = New Shell32.Shell
Set shFolder = shApp.NameSpace("FolderPath")
Set shFolderItem = shFolder.ParseName("Filename.zip")
Set shFolder2 = shFolderItem.GetFolder
For Each shFolderItem2 In shFolder2.Items
    Debug.Print shFolderItem2.Name
Next shFolderItem2

Thanks

 

[vbajock]

This one should pull out everything:

Function TestMe()
Call ExtractAll("Z:\Software Development\Code11.zip", "Z:\Common\Zipout")
End Function

Function ExtractAll(strZipFile, strTargetFolder)

Set objShell = CreateObject("Shell.Application")

Set objFso = CreateObject("Scripting.FileSystemObject")

If Not objFso.FolderExists(strTargetFolder) Then

objFso.CreateFolder (strTargetFolder)

End If



intCount = objShell.NameSpace(strTargetFolder).Items.Count

Set colItems = objShell.NameSpace(strZipFile).Items

objShell.NameSpace(strTargetFolder).CopyHere colItems, 256

Do Until objShell.NameSpace(strTargetFolder).Items.Count = intCount + colItems.Count

WScript.Sleep 200

Loop

End Function

'this one is supposed to pop a Wizard to allow the user to select the target folder, but I've never tested it, doesn't work on Terminal Server, might work on a local install:

Function ExtractAllW(strZipFile)

Set objShell = CreateObject("Shell.Application")

Set WshShell = CreateObject("WScript.Shell")

objShell.NameSpace(strZipFile).Items.Item.InvokeVerb ("Extract &All?")

Do While WshShell.AppActivate("Extraction Wizard")

WScript.Sleep 200

Loop

End Function