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

Author: nixel2007

v8files-extractor.os

@@ -453,16 +453,16 @@
 Процедура СобратьКаталог(Знач ПутьКИсходникам, КаталогВыгрузки, Знач ТипФайла)
 
 	СписокФайловВКаталоге = НайтиФайлы(ПутьКИсходникам);
-		
+
+	Если НЕ Новый Файл(КаталогВыгрузки).Существует() Тогда
+		СоздатьКаталог(КаталогВыгрузки);
+	КонецЕсли;
+
 	Для Каждого Файл Из СписокФайловВКаталоге Цикл
 
 		Если НЕ Файл.ЭтоКаталог() Тогда
 			Продолжить;
 		КонецЕсли;
-		
-		Если НЕ Новый Файл(КаталогВыгрузки).Существует() Тогда
-			СоздатьКаталог(КаталогВыгрузки);
-		КонецЕсли;
 
 		Если ЭтоПутьКИсходнымКодамОбработок(Файл.ПолноеИмя) Тогда
 			СобратьФайл(Файл.ПолноеИмя, КаталогВыгрузки, ТипФайла);