Unzip a Single File by Index

Unzip a single file by index.

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

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Dim zip As New ChilkatZip2

Dim success As Long

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

success = zip.OpenZip("my_photos.zip")
If (success <> 1) 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
Text1.Text = Text1.Text & "Num entries = " & n & vbCrLf

'  Let's say we want to unzip the 3rd entry:
Dim entry As ChilkatZipEntry2
Set 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 <> 1) Then
        MsgBox entry.LastErrorText
        Exit Sub
    Else
        MsgBox "Extracted 1 file!"
    End If

End If