|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Процедура НайтиФайлыПоПодпапкам(НайденныеФайлы, Каталог, Маска) Если НайденныеФайлы = Неопределено Тогда НайденныеФайлы = Новый Массив; КонецЕсли; Путь = Каталог; МассивФайлов = НайтиФайлы(Путь, Маска); Для Каждого НайденныйФайл Из МассивФайлов Цикл НайденныеФайлы.Добавить(НайденныйФайл); КонецЦикла; МассивКаталогов = НайтиФайлы(Путь, "*"); Для Каждого Папка Из МассивКаталогов Цикл Попытка Если Папка.ЭтоКаталог() Тогда НайтиФайлыПоПодпапкам(НайденныеФайлы, Папка.ПолноеИмя, Маска); КонецЕсли; Исключение Сообщить(ОписаниеОшибки()); КонецПопытки; КонецЦикла; КонецПроцедуры |
а в 8.2 достаточно:
|
1 |
НайденныеФайлы = НайтиФайлы(КаталогПоиска, Маска, Истина); |
About the Author
