Unzip a Single File by Index

Unzip a single file by index.

Download: Chilkat .NET Assemblies

Dim zip As New Chilkat.Zip()

Dim success As Boolean

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


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


'  How many files and directory entries are in this .zip?
Dim n As Long
n = zip.NumEntries
TextBox1.Text = TextBox1.Text & "Num entries = " _
     & n & vbCrLf

'  Let's say we want to unzip the 3rd entry:
Dim entry As Chilkat.ZipEntry
entry = zip.GetEntryByIndex(2)
If (entry Is Nothing ) Then
    MsgBox("Index out of range!")
    Exit Sub
Else
    '  Unzip it to C:/myTempDir
    success = entry.ExtractInto("c:/myTempDir")
    If (success <> true) Then
        MsgBox(entry.LastErrorText)
        Exit Sub
    Else
        MsgBox("Extracted 1 file!")
    End If

End If