NanoZip Folder Packer
Prosty skrypt generujący plik *.bat do kompresowanie folderów w aplikacji nanozip.
#include <File.au3>
#include <Array.au3>
Global $folders
$folders = _FileListToArray(@WorkingDir & '\', '*', 2)
Global $archive_comand = "nz.exe a -cc "
Local $zawartosc = ''
Local $pack = ''
Local $archive_name = ''
Local $file_bat = 'konwertuj.bat'
FileOpen($file_bat, 2)
For $x = 1 To UBound($folders) - 1
$archive_name = $folders[$x]
$zawartosc = ''
$zawartosc_array = _FileListToArray(@WorkingDir & '\' & $folders[$x] & '\')
For $y = 1 To UBound($zawartosc_array) - 1
$nazwa_plik = ' "' & $folders[$x] & '\' & $zawartosc_array[$y] & '"'
$zawartosc = $zawartosc & $nazwa_plik
Next
FileWrite($file_bat, $archive_comand &'"'& $archive_name & '" ' & $zawartosc & @CRLF)
Next