Dim sZipFile As String
  Dim sFolder As String
  Dim sPassword As String
  Dim nOverwrite As Long
  Dim nSubFolder As Long
  Dim sPath As String
  Dim nResult As Long
 
  ' Spracheinstellung und Kompressionsrate festlegen
  sevZIP_SetLanguage 1  ' Deutsch
  sevZIP_SetCompressionRate 6 'Val(Left$(cmbCompressType.Text, 1))
 
  ' Erweiterte Einstellungen
  sevZIP_IncludeSystemFiles 1 '(chkSystemFiles.Value <> 0)
  sevZIP_IncludeHiddenFiles 1 '(chkHiddenFiles.Value <> 0)
  sevZIP_IncludeOnlyArchivFiles 0 ' (chkOnlyArchivFiles.Value <> 0)
 
  ' Archiv-Bit zurücksetzen?
  sevZip_ResetArchivBit 0 '(chkResetArchivBit.Value <> 0)
 
  ' ggf. temporäres Verzeichnis festlegen
  ' bResult = sevZIP_SetTempPath(App.Path)
 
  ' Ordner, dessen Dateien gepackt werden sollen
   sFolder = txtSource.Text
 
  ' Name und Ort des Zip-Archivs
  sZipFile = "C:\Update 6.02.0159"
 
  ' Pfadangaben speichern?
'  If chkFolderLocation.Value <> 0 Then
'    sevZIP_SetRootDir ""
'  Else
'    sevZIP_SetRootDir sFolder
'  End If
 
  ' ======================================================
  ' Für die Anzeige eines Fortschrittbalkens benötigen wir
  ' eine unsichtbare Textbox (txtStatus), sowie das
  ' ProgressBar-Control aus den Windows Commons Controls.
  '
  ' Wird beim Aufruf der Zip-Funktion ein gültiges
  ' Fenster-/ oder TextBox-Handle angegeben, so schreibt
  ' die DLL den aktuellen Fortschritt in dieses Fenster /
  ' TextBox
  '
  ' In unserem Beispiel verwenden wir eine unsichtbare
  ' TextBox, bei der die sevZIP30.DLL dann autom. das
  ' Change-Event auslöst, so dass wir den aktuellen
  ' Prozentsatz in der ProgressBar anzeigen können.
  ' ======================================================
 
  ' Passwort
  sPassword = "" ' txtPassword.Text
 
  ' ZIP-Archiv überschreiben, falls bereits vorhanden
  nOverwrite = 0
 
  ' Unterordner einbeziehen?
  nSubFolder = 1
 
  ' ZIP-Vorgang jetzt starten
  nResult = sevZIP_ZipFolderEx(sZipFile, sFolder, "*.*", nSubFolder, sPassword, _
    nOverwrite, txtStatus.Hwnd)