Option Explicit
 
Private WithEvents m_cUnzip As cUnzip
Private m_sPassword As String
 
' hier kann das Passwort abgefragt werden (Form erhält Password-Eigenschaft)
Public Property Get Password() As String
  Password = m_sPassword
End Property
 
Private Sub Command1_Click()
 
  ' Passwort abfragen
  Dim sPasswd As String
  sPasswd = Trim(InputBox("Passwort eingeben", "Passwort eingeben"))
  If Len(sPasswd) > 0 Then
    m_sPassword = sPasswd
  Else
    ' kein Passwort angegeben
  End If
  ' Eigenschaften setzen
  m_cUnzip.UseFolderNames = True
  m_cUnzip.ZipFile = txtsFIlesFIle
  m_cUnzip.UnzipFolder = txtsFoldersFolder
 
  ' Datei entpacken
  m_cUnzip.Unzip
End Sub
 
Private Sub Form_Load()
  Set m_cUnzip = New cUnzip
End Sub
 
' 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

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.