(Visual FoxPro) Unzip Selected Files from a Zip Archive

Demonstrates how to iterate over the files contained within a .zip and unzip specific files.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loZip
LOCAL lnSuccess
LOCAL lcUnzipDir
LOCAL n
LOCAL loEntry
LOCAL i

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip')
loZip = CreateObject('Chilkat.Zip')

lnSuccess = loZip.OpenZip("my_files.zip")
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

lcUnzipDir = "/temp/unzipDir"

* Get the number of files and directories in the .zip
n = loZip.NumEntries
? STR(n)

FOR i = 0 TO n - 1

    loEntry = loZip.GetEntryByIndex(i)
    IF (loEntry.IsDirectory = 0) THEN
        * (the filename may include a path)
        ? loEntry.FileName

        * Your application may choose to unzip this entry
        * based on the filename.
        * If the entry should be unzipped, then call Extract(unzipDir)
        lnSuccess = loEntry.Extract(lcUnzipDir)
        IF (lnSuccess <> 1) THEN
            ? loEntry.LastErrorText
            RELEASE loZip
            CANCEL
        ENDIF

    ENDIF

    RELEASE loEntry
NEXT

RELEASE loZip