How to Get a List of Files in a Zip Archive

Keywords:   list of files zip archive

---

AddExtender("wwzip34i.dll")
zipfile="C:\My Download Files\wwprc34i.zip"
data=zunZipFiles("l", zipfile, "*.*", "", "C:\My Download Files\unzip")
;data=StrReplace(data,@crlf,@tab)
datacount=ItemCount(data,@tab)

filelist=""

for xx=1 to datacount
   thisline=ItemExtract(xx,data,@tab)
    
    if strindex(thisline,"Central directory entry #",0,@fwdscan) !=0
    xx=xx+3
    file=StrTrim(ItemExtract(xx,data,@tab))
    if filelist=="" then filelist=file
    else filelist=strcat(filelist,@tab,file)
    endif
next

AskItemList("File List",filelist,@tab,@unsorted,@single)

---

Article ID:   W14811