Архивирование ZIP

Для записи, чтения ZIP архивов во встроенном языке программирования 1С, предназначены специальные объекты "ЗаписьZIPФайла" и "ЧтениеZIPФайла". Данные объекты работают независимо от установленных архиваторов, так как используют встроенные средства ОС Windows.

ZIP - это формат для архивирования файлов. Формат был разработан Филом Кацем в 1989 году. При сжатии могут использоваться различные алгоритмы. Deflate - является одним из популярных алгоритмов.

Создать ZIP архив (архивирование файлов)

Процедура СоздатьАрхивZIP()
	
	ЗаписьZIP = Новый ЗаписьZipФайла("C:ИмяФайла.zip",
									 "Пароль",
									 "Комментарий",
									 МетодСжатияZIP.Сжатие,
									 УровеньСжатияZIP.Максимальный,
									 МетодШифрованияZIP.Zip20);

	//Добавление файла по полному пути
	ЗаписьZIP.Добавить("C:ImageImage.jpg");
	
	//Добавление файлов по маске
	ЗаписьZIP.Добавить("C:Image*.jpg");

	//Запись архива
	ЗаписьZIP.Записать();
	
КонецПроцедуры 

Распаковать ZIP архив

Процедура РаспаковатьАрхивZIP()
	
	ЧтениеZIP = Новый ЧтениеZipФайла("C:ИмяФайла.zip", "Пароль");

	//Получить комментарий к архиву
	Комментарий = ЧтениеZIP.Комментарий;
	
	//Извлечь все файлы
	Директория = "C:Image";	
	ЧтениеZIP.ИзвлечьВсе(Директория);	
	
	//Извлечение файлов по одному	
	Для каждого Элемент Из ЧтениеZIP.Элементы Цикл
	  
		ЧтениеZIP.Извлечь(Элемент, Директория, 
			РежимВосстановленияПутейФайловZIP.Восстанавливать, 
			"Пароль"); 	
	
	КонецЦикла; 
	
КонецПроцедуры