Listing contents of a .zip file? 1

[Ed2020]

Hi,

If I have a list of .zip files is it possible, in VBA, to list the names of the files stored within it?

I've done some Googling, but haven't found anything so far...

Any help would be much appreciated.

Cheers,

Ed Metcalfe.

Please do not feed the trolls.....

 

[combo]

Assuming you work with "zip" archive, your windows can unzip file, with reference to "shell32.dll":

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

combo

 

[Ed2020]

Thanks combo. Have a purple star.

Is there any way of doing it without unzipping the file?

Ed Metcalfe.

Please do not feed the trolls.....

 

[combo]

The code does not unzip archive. I assumed that the explorer can access it (shFolderItem.GetFolder).

combo

 

[strongm]

>without unzipping the file?

The code presented (which we've covered in reasonable detail over in the VB5/VB6 forum) does not unzip anything