Option Explicit
 
Private WithEvents m_cUnzip As cUnzip
Private m_sPassword As String
 
Public Property Get Password() As String
   Password = m_sPassword
End Property
 
' hier fragt die Klasse nach dem Passwort für die Datei
Private Sub m_cUnzip_PasswordRequest(sPassword As String, bCancel As Boolean)
' hier wird das Passwort übergeben
sPassword = m_sPassword
' hier kann auch mit bCancel = True abgebrochen werden
End Sub
 
Private Sub Command1_Click()
 
' Passwort abfragen
  Dim sPasswd As String
  sPasswd = Trim(InputBox("Passwort eingeben", "Passwort eingeben", "123"))
  If Len(sPasswd) > 0 Then
    m_sPassword = sPasswd
  Else
    MsgBox "Es wurde kein Passwort eingegeben", vbInformation, Form1.Caption
  End If
 
'   Eigenschaften setzen
    m_cUnzip.ZipFile = txtsFIle
    m_cUnzip.UnzipFolder = txtsFolder
    m_cUnzip.UseFolderNames = True
 
'   Datei entpacken
    m_cUnzip.Unzip
 
End Sub
 
Private Sub Form_Load()
    Set m_cUnzip = New cUnzip
End Sub