Browsing into Zip files and finding specific files ?

[Hambone]

I found a module that has ZIP functionality features - but it's got no comments on how to pass an argument or request to it...

What I'm trying to do is:
> Find all *.zip files in a directory (*.zip in (say) C:\MyFolder)
> Browse into each zip file and search for specific files (find any files that end in (say) *.txt)
> Load those files into a list box


I'd really appreciate any help - and espically the location of a zip functionality module that has comments or insturctions on how to use it.

Thanks!

[kedaman]

Here's some work i did a while ago, maybe you could continue on it, zip's really a great compression format

'mPKZIP.bas 10.10.00 Kedaman
'This is just a test, i dl the zip description from wotsit.org and thought
'i could make my own unzipping library, here's what i have so far
Type fileHeader
        Signature As Long
        version As Integer
        biflag As Integer
        packmethod As Integer
        lastmodtime As Integer
        lastmoddate As Integer
        crc32 As Long
        Sizepacked As Long
        Sizeunpacked As Long
        filenamelen As Integer
        extrafieldlen As Integer
End Type

Function FilesInZip() As String()
Dim temp As fileHeader, buffer() As Byte, n As Long, result() As String
    Open "C:\windows\desktop\zip_form.zip" For Binary As 1
        Do
            Get #1, , temp
            'signature might be wrong if you have come to the directory section
            If temp.Signature <> 67324752 Then Exit Do
            ReDim buffer(temp.filenamelen - 1)
            Get #1, , buffer
            ReDim Preserve result(n)
            result(n) = StrConv(buffer, vbUnicode)
            'the third bit should determine if theres an extra descriptor
            Seek 1, Seek(1) + temp.Sizepacked - 6 * CBool(temp.biflag And 8)
            n = n + 1
        Loop While Loc(1) < LOF(1)
    Close #1
    FilesInZip = result
End Function
'to try this for instance in immediate window, type
'For Each n In FilesInZip: ?n: Next n

'Function Unzip(Fileindex As Long)
'
'End Function

BTW, do you need recursive or nonrecursive directory search?