(Visual FoxPro) Unzip Some Files by Iterating over Entries

Demonstrates how to unzip specific files by iterating over entries in a .zip.

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

LOCAL loZip
LOCAL lnSuccess
LOCAL loSbFilename
LOCAL lnNumEntries
LOCAL i
LOCAL loEntry
LOCAL lcEntryFilePath

* This 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')

* Open a .zip containing:
* 
* a1.xml
* b1.xml
* c1.xml
* dir1/a2.xml
* dir1/c2.xml
* dir2/dir3/c3.xml

* We wish to unzip only a1.xml, b1.xml, and c1.xml
lnSuccess = loZip.OpenZip("qa_data/zips/xml_files.zip")
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

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

lnNumEntries = loZip.NumEntries
i = 0
DO WHILE i < lnNumEntries
    loEntry = loZip.GetEntryByIndex(i)

    lcEntryFilePath = loEntry.FileName
    ? lcEntryFilePath

    IF (loEntry.IsDirectory = 0) THEN
        loSbFilename.SetString(lcEntryFilePath)
        IF (loSbFilename.Contains("/",0) = 0) THEN
            * Does not contain "/"
            * Unzip to the qa_output directory.
            lnSuccess = loEntry.Extract("qa_output")
            IF (lnSuccess = 0) THEN
                ? "Failed to unzip " + lcEntryFilePath
            ELSE
                ? "Unzipped " + lcEntryFilePath
            ENDIF

        ENDIF

    ENDIF

    RELEASE loEntry

    i = i + 1
ENDDO

RELEASE loZip
RELEASE loSbFilename