Работа с файлами ZIP в 1С 8.2Показано создание файла zip при помощи ЗаписьZipФайла и чтение файла zip при помощи ЧтениеZIPФайла. Создает в корне диска c:\ файлы "test_zip.txt", "test_zip.zip" и подпапку "test_zip_temp" для распакованного архива. | | romix Последняя редакция №0 от 31.05.10 URL: http://kb.mista.ru/article.php?id=792 | |
Ключевые слова: zip, ЗаписьZipФайла, ЧтениеZIPФайла
&НаКлиенте
Процедура Команда1(Команда)
// Вставить содержимое обработчика.
стрПапка="c:\";
ИмяФайлаTxt="test_zip.txt";
ИмяФайлаZip="test_zip.zip";
ВременнаяПапка=стрПапка+"test_zip_temp";
Текст = Новый ТекстовыйДокумент;
Текст.ДобавитьСтроку("Привет");
Текст.Записать(стрПапка+ИмяФайлаTxt,КодировкаТекста.ANSI);
ЗаписьZIP = Новый ЗаписьZipФайла(стрПапка+ИмяФайлаZip);
ЗаписьZIP.Добавить(стрПапка+ИмяФайлаTxt);
ЗаписьZIP.Записать();
СоздатьКаталог(ВременнаяПапка);
ФайлАрхива = Новый ЧтениеZIPФайла(стрПапка+ИмяФайлаZip);
ФайлАрхива.ИзвлечьВсе(ВременнаяПапка, РежимВосстановленияПутейФайловZIP.Восстанавливать);
ФайлАрхива.Закрыть();
КонецПроцедуры
|