Процедура НайтиФайлыПоПодпапкам(НайденныеФайлы, Каталог, Маска)

    Если НайденныеФайлы = Неопределено Тогда

        НайденныеФайлы = Новый Массив;

    КонецЕсли;

    Путь = Каталог;

    МассивФайлов = НайтиФайлы(Путь, Маска);

    Для Каждого НайденныйФайл Из МассивФайлов Цикл

        НайденныеФайлы.Добавить(НайденныйФайл);    

    КонецЦикла;

    МассивКаталогов = НайтиФайлы(Путь, "*");

    Для Каждого Папка Из МассивКаталогов Цикл

        Попытка

            Если Папка.ЭтоКаталог() Тогда

                НайтиФайлыПоПодпапкам(НайденныеФайлы, Папка.ПолноеИмя, Маска);        

            КонецЕсли;

        Исключение

            Сообщить(ОписаниеОшибки());

        КонецПопытки;

    КонецЦикла;

КонецПроцедуры   

 НайденныеФайлы = НайтиФайлы(КаталогПоиска, Маска, Истина);