Имя: Пароль:
1C
1С v8
а как удалить файлы при архивации? методом ЗаписьZipФайла
,
0 nlira
 
15.07.12
15:24
Чтобы еще раз не прокручивать цикл?

ИмяZIPФайла ="D:\123123.zip";
   ФайлАрхива = Новый ЗаписьZipФайла(ИмяZIPФайла, , ,
   МетодСжатияZIP.Сжатие,
   УровеньСжатияZIP.Оптимальный,);
   //Выбираем файлы:

   Файлы = НайтиФайлы("D:\Архив","*.txt");
   ДатаГраницы = КонецДня(КонецМесяца('2012-06-12'));
   Для Каждого СтрФайл Из Файлы Цикл
       Если СтрФайл.ПолучитьВремяИзменения() < ДатаГраницы Тогда
           ИмяДобавляемогоФайла = СтрФайл.ПолноеИмя;
           ФайлАрхива.Добавить(ИмяДобавляемогоФайла,,);
       КонецЕсли;
   КонецЦикла;
   ФайлАрхива.Записать();
1 nlira
 
15.07.12
15:32
выбранные файлы поместить в отдельную папку Удаляемые, затем поместить в архив, записать, а затем выбрать все файлы из папки удаляемые, и методом удалить файлы удалить их
2 nlira
 
15.07.12
15:44
вот только как переместить файл? пробую СтрФайл.Путь = "D:\Удаляемые";
пишет обшибку  Поле объекта недоступно для записи (Путь)
3 nlira
 
15.07.12
15:54
ПереместитьФайл(СтрФайл.ПолноеИмя,"D:\Удаляемые\"+СтрФайл.Имя);
4 nlira
 
15.07.12
15:55
простите, сама спрашиваю, и сама отвечаю получается. Простите ради бога. Просто видимо одна на работе сижу, мож поэтому )))
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой