Making the content list of files inside a Zip ?

[euklides]

Thank's

And if you also want to know filesize:

    Do
        Get ff, , head
        If head.signature <> Chr$(&H50) + Chr$(&H4B) + Chr$(&H03) + Chr$(&H04) Then Exit Do
        fname = Space$(head.filenameLen)
        FX$ = Space$(head.uncompressedSize)
        Get ff, , fname
        If filecount > UBound(strarr) Then ReDim _Preserve strarr(filecount) As String
        strarr(filecount) = fname + "|" + _Trim$(Str$(Len(FX$)))
        filecount = filecount + 1
        Seek ff, Seek(ff) + head.extrafieldLen + head.compressedSize
    Loop Until EOF(ff)

And the program works with *.epub files  (that was my problem; epub are zip files)