Чтобы еще раз не прокручивать цикл?

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

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

выбранные файлы поместить в отдельную папку Удаляемые, затем поместить в архив, записать, а затем выбрать все файлы из папки удаляемые, и методом удалить файлы удалить их

вот только как переместить файл? пробую СтрФайл.Путь = "D:\Удаляемые";
пишет обшибку  Поле объекта недоступно для записи (Путь)

ПереместитьФайл(СтрФайл.ПолноеИмя,"D:\Удаляемые\"+СтрФайл.Имя);

простите, сама спрашиваю, и сама отвечаю получается. Простите ради бога. Просто видимо одна на работе сижу, мож поэтому )))