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