Private Sub Command5_Click()
 
    Dim dblTimer        As Double
    Dim bResult         As Boolean
    Dim sLastError      As String
'    Dim baOutput()      As Byte
'    Dim oBuffer         As cBufferStream
 
    dblTimer = Timer
    Set m_oZip = New cZipArchive
    m_bCancel = False
    With m_oZip
        .AddFromFolder "C:\DeinOrdner\", Recursive:=True, _
          IncludeEmptyFolders:=True
'        ReDim baOutput(0 To 100000000) As Byte
'        Set oBuffer = New cBufferStream
'        oBuffer.Init VarPtr(baOutput(0)), UBound(baOutput) + 1
'        bResult = .CompressArchive(oBuffer)
        bResult = .CompressArchive("C:\test.zip", Level:=9)
        'Debug.Assert FileLen("C:\test.zip") = oBuffer.Size
        sLastError = .LastError
    End With
    Set m_oZip = Nothing
    labProgress.Caption = IIf(bResult, "Done. ", sLastError & ". ") & Format( _
      Timer - dblTimer, "0.000") & " elapsed"
 
End Sub

Mit freundlichen Grüßen
-Franky-