List Files in a .zip

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)

How to list files within a .zip

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