CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to List the all file names of a Zip file

Option Explicit
 
Private Type ZFHeader
    Signature As Long
    version As Integer
    GPBFlag As Integer
    Compress As Integer
    Date As Integer
    Time As Integer
    CRC32 As Long
    CSize As Long
    USize As Long
    FNameLen As Integer
    ExtraField As Integer
End Type
 
Public Sub AddZIPfiles(ByVal ZIPfile As String, lst As ListBox)
    Dim FNum As Integer, iCounter As Integer
    Dim sResult As String
    Dim zhdr As ZFHeader
    Const ZIPSIG = &H4034B50
    FNum = FreeFile
    Open ZIPfile For Binary Lock Read Write As #FNum
    Get #FNum, , zhdr
    While zhdr.Signature = ZIPSIG
        ReDim s(0 To zhdr.FNameLen - 1) As String * 1
        For iCounter = 0 To UBound(s)
            s(iCounter) = Chr$(0)
        Next
        For iCounter = 0 To zhdr.FNameLen - 1
            Get #FNum, , s(iCounter)
        Next
        Seek #FNum, Seek(FNum) + zhdr.CSize + zhdr.ExtraField
        sResult = ""
        For iCounter = 0 To UBound(s)
            sResult = sResult & s(iCounter)
        Next
        lst.AddItem sResult & Chr$(9) & Format$(zhdr.USize)
        Get #FNum, , zhdr
    Wend
    Close FNum
End Sub
 
'How can I call this function:
Private Sub Form_Load()
    Call AddZIPfiles("C:\Temp\TestFile.zip", List1)
End Sub