Dim sZipFile As String
Dim sFile As String
Dim nCount As Long
Dim nResult As Long
 
sZipFile = App.Path & "myZipFile.zip"
 
nCount = 0
Do Until Rs.Eof
  sFile = Rs("Dateiname")
 
  nCount = nCount + 1
  If nCount = 1 Then
    <font color=green>' Zip-Archiv erstellen und 1. Datei zippen</font>
    nResult = sevZip_ZipFile(sZipFile, sFile, "", 1, 0)
  Else
    <font color=green>' alle weiteren Dateien zum Zip-File hinzufügen</font>
    nResult = sevZip_ZipAddFile(sZipFile, sFile, 2, 0)
  End If
 
  Rs.MoveNext
Loop