List Files in a .zip

Download Chilkat Zip ActiveX (includes objects for .zip, .gz, .bz2, and .Z)

How to list files within a .zip

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set zip = CreateObject("Chilkat.Zip2")

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "Failed to unlock zip!"
    WScript.Quit
End If

success = zip.OpenZip("a.zip")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    WScript.Quit
End If

'  Get the number of files and directories in the .zip
n = zip.NumEntries
outFile.WriteLine(n)

For i = 0 To n - 1

    Set entry = zip.GetEntryByIndex(i)
    If (entry.IsDirectory = 0) Then
        '  (the filename may include a path)
        outFile.WriteLine(entry.FileName)
    End If

Next

outFile.Close