Реализована функция рекурсивного сбора обработок

Author: nixel2007

v8files-extractor.os

@@ -433,11 +433,7 @@
 
 КонецПроцедуры
 
-Функция Компилировать(Знач Путь, Знач КаталогВыгрузки, Знач ТипФайла, Знач Рекурсивно)
-
-	Если ТипФайла = Неопределено Тогда
-		ТипФайла = "epf";
-	КонецЕсли;
+Функция Компилировать(Знач Путь, Знач КаталогВыгрузки, Знач ТипФайла = "epf", Знач Рекурсивно = Ложь)
 
 	ПутьКИсходникам = ОбъединитьПути(ТекущийКаталог(), Путь);
 
@@ -446,6 +442,43 @@
 	Ожидаем.Что(ПапкаИсходников.Существует(), "Папка " + ПутьКИсходникам + " должна существовать").ЭтоИстина();
 	Ожидаем.Что(ПапкаИсходников.ЭтоКаталог(), "Путь " + ПутьКИсходникам + "должен быть каталогом").ЭтоИстина();
 
+	Если Рекурсивно Тогда
+		СобратьКаталог(ПутьКИсходникам, КаталогВыгрузки, ТипФайла);
+	Иначе
+		СобратьФайл(ПутьКИсходникам, КаталогВыгрузки, ТипФайла);
+	КонецЕсли;
+
+КонецФункции
+
+Процедура СобратьКаталог(Знач ПутьКИсходникам, КаталогВыгрузки, Знач ТипФайла)
+
+	СписокФайловВКаталоге = НайтиФайлы(ПутьКИсходникам);
+		
+	Для Каждого Файл Из СписокФайловВКаталоге Цикл
+		
+		Если НЕ Файл.ЭтоКаталог() Тогда
+			Продолжить;
+		КонецЕсли;
+		
+		Если НЕ Новый Файл(КаталогВыгрузки).Существует() Тогда
+			СоздатьКаталог(КаталогВыгрузки);
+		КонецЕсли;
+
+		Если ЭтоПутьКИсходнымКодамОбработок(Файл.ПолноеИмя) Тогда
+			СобратьФайл(Файл.ПолноеИмя, КаталогВыгрузки, ТипФайла);
+		Иначе
+			НовыйПутьВыгрузки = ОбъединитьПути(КаталогВыгрузки, Файл.Имя);
+			СобратьКаталог(Файл.ПолноеИмя, НовыйПутьВыгрузки, ТипФайла);
+		КонецЕсли;
+
+	КонецЦикла;
+
+КонецПроцедуры
+
+Функция СобратьФайл(Знач ПутьКИсходникам, Знач КаталогВыгрузки, Знач ТипФайла)
+
+	ПапкаИсходников = Новый Файл(ПутьКИсходникам);
+
 	ИмяПапки = ПапкаИсходников.Имя;
 	ИмяФайлаОбъекта = ОбъединитьПути(ТекущийКаталог(), КаталогВыгрузки, ИмяПапки + "." + ТипФайла);
 
@@ -479,6 +512,13 @@
 
 КонецФункции
 
+Функция ЭтоПутьКИсходнымКодамОбработок(ПутьКПапке)
+	
+	ФайлПереименования = Новый Файл(ОбъединитьПути(ПутьКПапке, "renames.txt"));
+	Возврат ФайлПереименования.Существует();
+
+КонецФункции
+
 // Функция - Получает соответствие переименований файлов обработки на основе
 //			 файла renames.txt
 //