Dim gemPfadVariant as Variant 'zu zippende Dateien und Ordner
Dim VerzeichnisZIP as Variant 'zu erstellendes ZIP-File
Dim SHELL2 As Object
Set SHELL2 = CreateObject("Shell.Application")
 
gemPfadVariant = "c:\zuZippendeDateien und Ordner"
VerzeichnisZIP = "d:\zip-datei.zip"
 
FileNr = FreeFile
Open VerzeichnisZIP For Output As #FileNr
Print #FileNr, Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, Chr$(0)); _
  'Header für ZIP-Datei
Close #FileNr
 
SHELL2.Namespace(VerzeichnisZIP).CopyHere SHELL2.Namespace( _
  gemPfadVariant).Items 'ZIP-Datei befüllen
Set SHELL2 = Nothing