Начиная от заданной надо найти все файлы во всех подпапках. Подкиньте процедурку плиз.

Сам когда-то спрашивал :)
НайденныеФайлы = НайтиФайлы(Путь, "*.*");
Для каждого НайденныйФайл Из НайденныеФайлы Цикл
   Если НайденныйФайл.ЭтоКаталог() Тогда
       // Ищем все файлы в найденном каталоге
       НайтиВсеФайлы(НайденныйФайл.ПолноеИмя);
   Иначе
       // Это файл, выведем его полное имя
       Сообщить(НайденныйФайл.ПолноеИмя);
       НовыйЭлемент = Справочники.Файлы.СоздатьЭлемент();
       НовыйЭлемент.Наименование = НайденныйФайл.Имя;
       НовыйЭлемент.Путь = НайденныйФайл.Путь;
       НовыйЭлемент.РазмерФайла = (НайденныйФайл.Размер())/1000;
       НовыйЭлемент.ПолноеНаименование = НайденныйФайл.ПолноеИмя;
       НовыйЭлемент.Записать();
   КонецЕсли;
КонецЦикла;

Спасибо.