List Files in a .zip

How to list files within a .zip

Download Chilkat Zip ActiveX

Dim zip As New ChilkatZip2

Dim success As Long

'  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!"
    Exit Sub
End If

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

Dim n As Long

'  Get the number of files and directories in the .zip
n = zip.NumEntries
Text1.Text = Text1.Text & n & vbCrLf
Text1.Refresh

Dim entry As ChilkatZipEntry2

Dim i As Long
For i = 0 To n - 1

    Set entry = zip.GetEntryByIndex(i)
    If (entry.IsDirectory = 0) Then
        '  (the filename may include a path)
        Text1.Text = Text1.Text & entry.FileName & vbCrLf
        Text1.Refresh
    End If

Next