'Hier nur die wichtigsten Zeilen
 
'Variable Deklarieren
Dim ZipFileName As String
Dim SelPfad As String
Dim zFile As New FastZip
 
'Zieldateiname mit Pfad
ZipFileName = "C:\Temp\Test.zip"
 
'Generiere Archiv, wobei in der Variable der Quellpfad stehen muss
zFile.CreateZip(ZipFileName, SelPfad, True, "", "")