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)

LOCAL loZip
LOCAL lnSuccess
LOCAL n
LOCAL loEntry

loZip = CreateObject('Chilkat.Zip2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loZip.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

lnSuccess = loZip.OpenZip("my_photos.zip")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

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

n = loZip.NumEntries
? "Num entries = " + STR(n)

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

loEntry = loZip.GetEntryByIndex(2)
IF (loEntry = NULL ) THEN
    =MESSAGEBOX("Index out of range!")
    QUIT
ELSE
    *  Unzip it to C:/myTempDir
    lnSuccess = loEntry.ExtractInto("c:/myTempDir")
    IF (lnSuccess <> 1) THEN
        =MESSAGEBOX(loEntry.LastErrorText)
        QUIT
    ELSE
        =MESSAGEBOX("Extracted 1 file!")
    ENDIF

ENDIF