Dim sDatei As String, sDateiAlt As String
    Dim sSourceFile As String
    Dim sPassword As String
    Dim sZipFile As String, nResult As Long
    Dim sFolder As String, nSubFolder As Long, sFileSpec As String, nOverwrite _
      As Long
 
    'Status-Bar sichtbar machen
    picProgress.Visible = True
 
    'Registrierungs-Nummer vorgeben
    sevZIP_Init "balblabla" 'steht natürlich das Richtige drin!
 
    'Passwort
    sPassword = ""
 
    'ZipFile erstellen
    ShowProgress picProgress, 0, 0, 0
    sevZIP_SetLanguage 1  ' Deutsch
    sevZIP_SetCompressionRate 9 'höchste Komprimierung
    nOverwrite = 4 'Datei im Zip-Archiv nur ersetzten wenn neuer
 
    ' Name und Ort des Zip-Archivs
    sZipFile = Konvertierungs_Pfad & "BackUp400" & Format(Now, _
      "yyyymmdd-hhmmss") & ".zip"
 
    ' Pfadangaben speichern?
    sevZIP_SetRootDir ""  ' immer vollständigen Pfad im Zip-File speichern
 
    ' ZIP-Vorgang jetzt starten Speichern erste Datei
    Label2.Caption = sDatei
    nResult = sevZIP_ZipFile(sZipFile, sDatei, _
      sPassword, nOverwrite, txtStatus.hWnd)
 
    ' Jetzt alle weiteren Dateien ins Archiv packen
 
    If nOverwrite < 2 Then nOverwrite = 2
    While (sDatei <> "")
 
        sDateiAlt = sDatei
        sDatei = Dir$
        If sDatei = sDateiAlt Or sDatei = "" Then
            sDatei = ""
        Else
            Label2.Caption = sDatei
            nResult = sevZIP_ZipAddFile(sZipFile, sDatei, _
                    nOverwrite, txtStatus.hWnd)
        End If
    Wend
 
    'Weitere Dateien:
    sDatei = "Buch.ini"
    Label2.Caption = sDatei
    nResult = sevZIP_ZipAddFile(sZipFile, sDatei, _
                    2, txtStatus.hWnd)
    sDatei = "buchhalt.exe"
    Label2.Caption = sDatei
    nResult = sevZIP_ZipAddFile(sZipFile, sDatei, _
                    2, txtStatus.hWnd)
 
 
    '----> hier funktioniert die Speicherung der Pfadangaben im Zip-File!!!!!
 
    'Ganzer Ordner
    sFolder = Konvertierungs_Pfad & "Icon\"
    sFileSpec = "*.*"
    nSubFolder = 1 'Unterordner mit einbeziehen
    nResult = sevZIP_ZipFolderEx(sZipFile, sFolder, sFileSpec, _
        nSubFolder, sPassword, nOverwrite, txtStatus.hWnd)
 
    picProgress.Visible = False