List Files in a .zip

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

How to list files within a .zip

Dim zip As New Chilkat.Zip()


Dim success As Boolean

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


success = zip.OpenZip("a.zip")
If (success <> true) 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
TextBox1.Text = TextBox1.Text & n & vbCrLf
TextBox1.Refresh()

Dim entry As Chilkat.ZipEntry

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

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


Next