Что нового

Архивация файлов в Zip архив

Viktor1703

AutoIT Гуру
Сообщения
1,535
Репутация
413
AutoIt: 3.
Версия: 1.0

Категория: Файловая система, Разное

Описание: Написал Dll и UDF для архивации файлов в Zip архивы, функций маловато но хватает для основных действий, возможно в будущем продолжу дописывать Dll, в UDF имеется 2 функции для отслеживания процесса архивации либо извлечения файлов, построены на DllCallbackRegister, с ними работать не умею, если напишите как правильно должно быть, то исправлю и перезалью.

Код/Пример:
Код:
#include <Zip.au3>

_Zip_Startup()

_Zip_AddCallBack('AddCallback')
_Zip_Create(@ScriptDir & '\test.zip')
_Zip_SetPassword(12345)
_Zip_AddFile(@WindowsDir & '\NOTEPAD.exe')
_Zip_AddFile('') ;~ Здесь вписать какой нибудь большой файл для наглядности процесса
_Zip_Close()

_Zip_ExtractCallBack('ExtractCallback')
_Zip_Extract(@ScriptDir & '\test.zip', 'C:\Temp')

Func AddCallback($sFile, $iPercent, $lParam)
	ConsoleWrite($sFile & ' > ' & $iPercent & @CRLF)
EndFunc

Func ExtractCallback($sFile, $iPercent, $lParam)
	ConsoleWrite($sFile & ' > ' & $iPercent & @CRLF)
EndFunc

Файл: Zip UDF

Снимок:

История версий:
v 1.0

Источник: autoit-script.ru
Автор(ы): Viktor1703
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
у меня данный код пример не сработал. система семерка
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
В чём преимущество по сравнению с остальными zip-архиваторами, например с 7zip?
 
Верх