Вопрос про функцию НайтиФайлы()

Всем привет!

Скажите мне пожалуйста это глюк или что-то я не правильно делаю.
Есть процедура:

Процедура КнопкаВыполнитьНажатие(Кнопка)
Перем ТаблицаКонтрагентов;

Если НЕ ЗначениеЗаполнено(ПутьДанных) Тогда
Сообщить("Не указан путь для временного сохранения файлов.");
Возврат;
КонецЕсли;

ТаблицаКонтрагентов = Новый Соответствие;

ТекущийКонтрагент = "";
Для Каждого СтрокаТаблицы ИЗ ТабДокументов Цикл

ТекущийДокумент = СтрокаТаблицы.Документ.ПолучитьОбъект();
ТекущийКонтрагент = СокрЛП(ТекущийДокумент.Контрагент.Наименование);
ТекущийКонтрагент = СтрЗаменить(ТекущийКонтрагент, ".", "");
ТекущийКонтрагент = СтрЗаменить(ТекущийКонтрагент, " ", "_");

Если ТекущийДокумент <> Неопределено И СтрокаТаблицы.Флаг Тогда

ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("Флаг", Истина);
ПараметрыОтбора.Вставить("ВидДокумента", ТекущийДокумент.Метаданные().Имя);

НайденныеСтроки = ПечатныеФормы.НайтиСтроки(ПараметрыОтбора);

Для Каждого НайденнаяСтрока ИЗ НайденныеСтроки Цикл

СтрМакета = ДеревоМакетовПечатиРН.Строки.Найти(НайденнаяСтрока.ПечатнаяФорма, "Имя");
Если (СтрМакета <> Неопределено) И (СтрМакета.Расшифровка <> Неопределено) Тогда
Если ТипЗнч(СтрМакета.Расшифровка) = Тип("Структура") Тогда
ТабДокумент = УниверсальныеМеханизмы.НапечататьВнешнююФорму(ТекущийДокумент.Ссылка, СтрМакета.Расшифровка);
Иначе
//Реализация.Печать(СтрМакета.Расшифровка, ?(ПечататьНаПринтер,КоличествоЭкземпляров1, 0), ПечататьНаПринтер, СокрЛП(ЭлементыФормы.ПринтерыДляДокументов.Значение));
КонецЕсли;
КонецЕсли;

СоздатьКаталог(ПутьДанных + "\" + ТекущийКонтрагент);
ТабДокумент.Записать(ПутьДанных + "\" + ТекущийКонтрагент + "\" + СокрЛП(НайденнаяСтрока.ДополнениеКФайлу) + "-" + ТекущийДокумент.Номер + " " + НайденнаяСтрока.НазваниеПечатнойФормы + ".xls", ТипФайлаТабличногоДокумента.XLS97);

Если ТаблицаКонтрагентов[ТекущийКонтрагент] = Неопределено Тогда
ТаблицаКонтрагентов.Вставить(ТекущийКонтрагент, ПутьДанных + "\" + ТекущийКонтрагент);
КонецЕсли;

ОбработкаПрерыванияПользователя();

КонецЦикла;

КонецЕсли;

ОбработкаПрерыванияПользователя();

КонецЦикла;

Для Каждого ЭлементСоответствия ИЗ ТаблицаКонтрагентов Цикл

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

АрхивныйФайл = Новый ЗаписьZipФайла(ПутьДанных + "\" + ЭлементСоответствия.Ключ + ".zip");
КаталогДляПоиска = Новый Файл(ПутьДанных + "\" + ЭлементСоответствия.Ключ);
Если КаталогДляПоиска.Существует() Тогда
НайденныеФайлы = НайтиФайлы(КаталогДляПоиска.ПолноеИмя);
КонецЕсли;

Для Каждого НайденныйФайл ИЗ НайденныеФайлы Цикл
АрхивныйФайл.Добавить(НайденныйФайл.Имя, РежимСохраненияПутейZIP.СохранятьОтносительныеПути, РежимОбработкиПодкаталоговZIP.ОбрабатыватьРекурсивно);
КонецЦикла;

АрхивныйФайл.Записать();

КонецЦикла;

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

Тут не хитрым образом создаются в определенном указанном каталоге подкаталоги. И тогда когда я хочу добавить в архив файлы из подкаталога (НайтиФайлы()), то функция НайтиФайлы находит только подкаталоги созданные в указанном. И дальше не ищет.
Что это? и как это обойти?