Unzip a Single File by Index

Unzip a single file by index.

Download Chilkat Zip ActiveX

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("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    WScript.Quit
End If

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

'  How many files and directory entries are in this .zip?

n = zip.NumEntries
outFile.WriteLine("Num entries = " & n)

'  Let's say we want to unzip the 3rd entry:

Set entry = zip.GetEntryByIndex(2)
If (entry Is Nothing ) Then
    MsgBox "Index out of range!"
    WScript.Quit
Else
    '  Unzip it to C:/myTempDir
    success = entry.ExtractInto("c:/myTempDir")
    If (success <> 1) Then
        MsgBox entry.LastErrorText
        WScript.Quit
    Else
        MsgBox "Extracted 1 file!"
    End If

End If


outFile.Close