Резервирование и упаковка файлов в архив ZIP

UseZipPacker()
 
;{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #Text_0
  #Text_1
  #Text_2
  #String_3
  #Button_4
  #Date_5
  #Date_6
  #Button_7
EndEnumeration
;}
Global CountFile
Global NewList ListFile.s()
 
; Константы для Demo версиии 
#MB_YESNO = 4
#MB_ICONQUESTION = 32
#IDYES = 6
#IDNO = 7
 
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
         If GetFileDate(Directory$+EntryName, #PB_Date_Modified ) >= GetGadgetState(#Date_5) And GetFileDate(Directory$+EntryName, #PB_Date_Modified ) <= GetGadgetState(#Date_6)
           If AddPackFile(0, Directory$+EntryName, Fd+EntryName)
             AddElement(ListFile()) :  ListFile()=Directory$+EntryName
             CountFile+1
            EndIf
         EndIf
        
      EndIf
      
    Wend
    FinishDirectory(z)
  EndIf
EndProcedure
 
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 711, 45, 500, 151, "Backups alpha v0.01", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
      TextGadget(#Text_0, 10, 15, 95, 25, "Исходная папка")
      TextGadget(#Text_1, 5, 65, 90, 25, "Начало периода")
      TextGadget(#Text_2, 275, 65, 90, 20, "Конец периода")
      StringGadget(#String_3, 120, 10, 305, 20, "C:\TEMP\test")
      ButtonGadget(#Button_4, 435, 10, 55, 20, "...")
      DateGadget(#Date_5, 95, 60, 110, 25, "%dd/%mm/%yyyy", Date())
      DateGadget(#Date_6, 370, 60, 105, 25, "%dd/%mm/%yyyy", Date())
      ButtonGadget(#Button_7, 170, 100, 165, 25, "Выполнить")
    
  EndIf
EndProcedure
 
OpenWindow_Window_0()
 
;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #Text_0
      ElseIf EventGadget = #Text_1
      ElseIf EventGadget = #Text_2
      ElseIf EventGadget = #String_3
        Path$ = GetGadgetText(#String_3); Исходная папка руками
      ElseIf EventGadget = #Button_4
      InitialPath$ = Trim(GetGadgetText(#String_3))  ; Исходная папка запросом
      Path$ = PathRequester("Исходная папка для резервирования", InitialPath$)
  If Path$
    SetGadgetText(#String_3,Path$)
  Else
    MessageRequester("Information", "Папка не выбрана.", 0) 
  EndIf
 
      ElseIf EventGadget = #Date_5
      ElseIf EventGadget = #Date_6
      ElseIf EventGadget = #Button_7 ; Кнопка выполнить нажата
       CountFile = 0
       Path$ = GetGadgetText(#String_3) 
       Dir.s = Path$                      ;Путь к папке с файлами для упаковки
       File.s = Path$+"Test.zip"          ; Имя архива
 
If CreatePack(0, File, #PB_PackerPlugin_Zip)
  ScanDir(Dir, "")
  ClosePack(0)
  If CountFile
  ; Удаление файлов по запросу
  Select MessageRequester("Удаление файлов", "Упаковано файлов - " + CountFile + "Удалить исходные файлы?", #MB_YESNO|#MB_ICONQUESTION)
    Case #IDYES
      ForEach ListFile()
          DeleteFile(ListFile())
       Next
    Case #IDNO
  EndSelect
  Else
  MessageRequester("Information", "Файлы не найдены")
  EndIf
 
Else
  MessageRequester("Information", "Не удалось создать архив")
EndIf
      EndIf
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver
;
;}