Код

Перем _б;
Перем ИмяФайла Экспорт;
Перем КаталогАрхива Экспорт;
Перем ИмяАрхива Экспорт;
Перем Удалить Экспорт;
Перем Пароль Экспорт;

Функция Сам(Конт) Возврат Конт; КонецФункции

Функция ПарольФайла()
    Если ПустоеЗначение(Пароль)=0 Тогда
	  Возврат "-s"+Пароль+" ";
    Иначе
	  Возврат "";
    КонецЕсли;
КонецФункции    // ПарольФайла

Процедура Запаковать() Экспорт
    Архив=КаталогАрхива+ИмяАрхива;
    ФС.УстТекКаталог(КаталогАрхива);
    ФайлАрхива=Архив+".zip";
    лСтр=""""+ФайлАрхива+"""";
    Если ТипЗначенияСтр(ИмяФайла)="СписокЗначений" Тогда
	  Для н=1 По ИмяФайла.РазмерСписка() Цикл
		лИмяФайла=ИмяФайла.ПолучитьЗначение(н);
		лСтр=лСтр+" """+лИмяФайла+"""";
	  КонецЦикла;
    Иначе
	  лСтр=лСтр+" """+ИмяФайла+"""";
    КонецЕсли;
    Если ТипЗначенияСтр(ИмяФайла)="СписокЗначений" Тогда
	  СтрокаСостояния=ИмяФайла.ВСтрокуСРазделителями();
    Иначе
	  СтрокаСостояния=ИмяФайла;
    КонецЕсли;
    Состояние("Запаковка файлов : "+СтрокаСостояния);
    _б.Zip(ПарольФайла()+лСтр);
    Если Удалить=1 Тогда
	  Если ТипЗначенияСтр(ИмяФайла)="СписокЗначений" Тогда
		Для н=1 По ИмяФайла.РазмерСписка() Цикл
		    лИмя=ИмяФайла.ПолучитьЗначение(н);
		    Если Найти(лИмя,"*")>0 Тогда
			  ИмяТекФайла=ФС.НайтиПервыйФайл(лИмя);
			  ФС.УдалитьФайл(ИмяТекФайла);
			  Пока ПустоеЗначение(ИмяТекФайла)=0 Цикл
				ИмяТекФайла=ФС.НайтиСледующийФайл();
				Если ПустоеЗначение(ИмяТекФайла)=0 Тогда
				    ФС.УдалитьФайл(ИмяТекФайла);
				КонецЕсли;
			  КонецЦикла;
		    Иначе
			  ФС.УдалитьФайл(КаталогАрхива+лИмя);
		    КонецЕсли;
		КонецЦикла;
	  Иначе
		ФС.УдалитьФайл(КаталогАрхива+ИмяФайла);
	  КонецЕсли;
    КонецЕсли;
КонецПроцедуры    // Запаковать

Процедура Распаковать() Экспорт
    ФС.УстТекКаталог(КаталогАрхива);
    Если Найти(ИмяАрхива,"*.zip")>0 Тогда
	  ИмяТекФайла=ФС.НайтиПервыйФайл("*.zip");
	  Если ПустоеЗначение(ИмяТекФайла)=1 Тогда
		Сообщить("По маске нет ни одного архива");
		Возврат;
	  КонецЕсли;
	  лСтр=""""+ИмяТекФайла+"""" """"+КаталогАрхива+"""";
	  Состояние("Распаковка файла "+ИмяТекФайла);
	  _б.UnZip(ПарольФайла()+лСтр);
	  Если Удалить=1 Тогда
		ФС.УдалитьФайл(ИмяТекФайла);
	  КонецЕсли;
	  Пока ПустоеЗначение(ИмяТекФайла)=0 Цикл
		ИмяТекФайла=ФС.НайтиСледующийФайл();
		Если ПустоеЗначение(ИмяТекФайла)=0 Тогда
		    лСтр=""""+ИмяТекФайла+"""" """"+КаталогАрхива+"""";
		    Состояние("Распаковка файла "+ИмяТекФайла);
		    _б.UnZip(ПарольФайла()+лСтр);
		    Если Удалить=1 Тогда
			  ФС.УдалитьФайл(ИмяТекФайла);
		    КонецЕсли;
		КонецЕсли;
	  КонецЦикла;
    Иначе
	  Если ФС.СуществуетФайл(ИмяАрхива)=0 Тогда
		Сообщить("Не найден файл "+ИмяАрхива);
		Возврат;
	  КонецЕсли;
	  лСтр=""""+ИмяАрхива+"""" """"+КаталогАрхива+"""";
	  Состояние("Распаковка файла "+ИмяАрхива);
	  _б.UnZip(ПарольФайла()+лСтр);
	  Если Удалить=1 Тогда
		ФС.УдалитьФайл(ИмяАрхива);
	  КонецЕсли;
    КонецЕсли;
КонецПроцедуры    // Распаковать

Процедура Конструктор()
    _б=Сам(Контекст).ПолучитьБазовыйКласс("BinaryData");
КонецПроцедуры

Процедура Деструктор()
    _б=0;
КонецПроцедуры    // ДеСтруктор