List Files in a .zip

How to list files within a .zip

Download Chilkat Zip ActiveX

LOCAL loZip
LOCAL lnSuccess
LOCAL n
LOCAL loEntry
LOCAL i

loZip = CreateObject('Chilkat.Zip2')

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

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

*  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
    ENDIF

    RELEASE loEntry
NEXT