zip and unzip

[xiaoyao]

VERY interesting.
I tried the vbZip project, and it works flawless.
Like this:

vbzip -o "T:\ZIPTEST" x "T:\Desktop\bla.zip"

When I want to use your work in my projects, I only need to unzip a zip file to a folder.
I tried the basic project.

Private Sub Command4_Click()
    Dim dblTimer        As Double
    Dim bResult         As Boolean
    Dim sLastError      As String

    dblTimer = Timer
    Set m_oZip = New cZipArchive
    m_bCancel = False
    With m_oZip
        .OpenArchive "T:\Desktop\bla.zip"
        Set m_oExtractInMemory = m_oZip
        bResult = .Extract("T:\ZIPTEST")
        Set m_oExtractInMemory = Nothing
        sLastError = .LastError
    End With
    Set m_oZip = Nothing
    labProgress.Caption = IIf(bResult, "Done. ", sLastError & ". ") & Format(Timer - dblTimer, "0.000") & " elapsed"
End Sub

This doesn't create the folder to extract to.
And even when the folder exists, no extracted file comes in.
I thought the .Extract method would do this.

Can you give me a hint please?

Karl

how to zip file with password?