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