Копирование каталог заменено на аналог из fs

Author: sfaqer

src/Классы/edtExport.os

@@ -1,5 +1,6 @@
 #Использовать logos
 #Использовать tempfiles
+#Использовать fs
 
 Перем ВерсияПлагина;
 Перем Лог;
@@ -142,37 +143,12 @@
 	УдалитьФайлы(КаталогВыгрузки, "*");
 
 	Лог.Отладка("Копирую каталог проекта EDT в каталог выгрузки");
-	КопироватьКаталог(КаталогПроекта, КаталогВыгрузки);
-
+	ФС.КопироватьСодержимоеКаталога(КаталогПроекта, КаталогВыгрузки);
 
 КонецПроцедуры
 
 #КонецОбласти
 
-Процедура КопироватьКаталог(СтарыйПуть, НовыйПуть) Экспорт
-    
-    Для Каждого НайденныйОбъект Из НайтиФайлы(СтарыйПуть, "*.*", Истина) Цикл
-        
-        Если НайденныйОбъект.ЭтоКаталог() Тогда
-			
-			СоздатьКаталог(СтрЗаменить(НайденныйОбъект.ПолноеИмя, СтарыйПуть, НовыйПуть));
-            Продолжить;
-            
-		Иначе
-			
-            КаталогПереносимогоФайла = Новый Файл(СтрЗаменить(НайденныйОбъект.путь, СтарыйПуть, НовыйПуть));
-            Если НЕ КаталогПереносимогоФайла.Существует() Тогда
-                СоздатьКаталог(КаталогПереносимогоФайла.ПолноеИмя);
-            КонецЕсли;
-			
-			КопироватьФайл(НайденныйОбъект.ПолноеИмя, СтрЗаменить(НайденныйОбъект.ПолноеИмя, СтарыйПуть, НовыйПуть));
-
-        КонецЕсли;
-                
-    КонецЦикла;
-
-КонецПроцедуры
-
 Процедура Инициализация()
 
 	ВерсияПлагина = "1.1.1";