Visual FoxPro

Iterate over Matching Filenames

See more Zip Examples

Iterates over files within a .zip that match a pattern. In this case, the pattern is "*.pem". This example will open a .zip containing files of type .txt, .cer, .pem, and possibly others, and will iterate over only the .pem files. Visual FoxPro

LOCAL lnSuccess
LOCAL loZip
LOCAL loEntry
LOCAL lcPemStr
LOCAL lcPattern
LOCAL lnBHasMoreMatches

lnSuccess = 0

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

loZip = CreateObject('Chilkat.Zip')

* Open a .zip containing PEM files, among other things..
lnSuccess = loZip.OpenZip("qa_data/certs/thawte-roots.zip")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

loEntry = CreateObject('Chilkat.ZipEntry')

lcPattern = "*.pem"

lnBHasMoreMatches = loZip.EntryMatching(lcPattern,loEntry)
DO WHILE lnBHasMoreMatches = 1

    ? "Entry: " + loEntry.FileName

    * Get the uncommpressed contents of the entry:
    lcPemStr = loEntry.UnzipToString(0,"utf-8")
    ? lcPemStr

    lnBHasMoreMatches = loEntry.GetNextMatch(lcPattern)
ENDDO

RELEASE loZip
RELEASE loEntry