Упаковка папок в ZIP с сохранением иерархии

UseZipPacker()
 
  ; Create the packed file
  If CreatePack(0, "mycompressedfiles.zip") 
  
    ; add your files 
    AddPackFile(0, "Image1.bmp", "Image1.bmp")  
    AddPackFile(0, "Image2.bmp", "Image2.bmp") 
    AddPackFile(0, "mywave1.wav", "mywave1.wav") 
    AddPackFile(0, "mywave2.wav", "mywave2.wav") 
    ClosePack(0) 
  EndIf

UseZipPacker()
 
Procedure ScanDir(Directory$, Fd.s)
  If Right(Directory$,1)<>"\":Directory$ + "\":EndIf
  z=ExamineDirectory(#PB_Any, Directory$, "*.*")  
  
  If z
    While NextDirectoryEntry(z)
      EntryName.s=DirectoryEntryName(z)
      
      If EntryName = "." Or EntryName = ".."
        Continue
      EndIf
      
      
      If DirectoryEntryType(z) = #PB_DirectoryEntry_Directory
        ScanDir(Directory$+EntryName, Fd+EntryName+"\")
      Else
        AddPackFile(0, Directory$+EntryName, Fd+EntryName)
      EndIf
      
    Wend
    FinishDirectory(z)
  EndIf
EndProcedure
 
Dir.s="Путь к папке с файлами для упаковки"
File.s = "Test.zip"
 
If CreatePack(0, File, #PB_PackerPlugin_Zip)
  ScanDir(Dir, "")
  ClosePack(0)
  MessageRequester("", "Архив упакован")
Else
  MessageRequester("", "Не удалось создать архив")
EndIf