Копировать, переместить каталог в 1С8

Копируем, перемещаем каталог в 1С8:

Процедура КопироватьПереместитьКаталог(СтарыйПуть, НовыйПуть, Перемещение = Ложь)
	
	Если Прав(НовыйПуть, 1) <> "\" Тогда
		НовыйПуть = НовыйПуть + "\";
	КонецЕсли;
	
	Файл = Новый Файл(СтарыйПуть);
	НовыйПуть = НовыйПуть + Файл.Имя;
	СоздатьКаталог(НовыйПуть);
	
	Если Прав(НовыйПуть, 1) <> "\" Тогда
		НовыйПуть = НовыйПуть + "\";
	КонецЕсли;
	
	Для Каждого НайденныйФайлКаталог Из НайтиФайлы(СтарыйПуть, "*.*", Истина) Цикл
		
		Если НайденныйФайлКаталог.ЭтоКаталог() Тогда
			СоздатьКаталог(СтрЗаменить(НайденныйФайлКаталог.ПолноеИмя, СтарыйПуть, НовыйПуть));            
			Продолжить;
		Иначе
			КаталогПереносимогоФайла = Новый Файл(СтрЗаменить(НайденныйФайлКаталог.путь, СтарыйПуть, НовыйПуть));
			Если НЕ КаталогПереносимогоФайла.Существует() Тогда
				СоздатьКаталог(КаталогПереносимогоФайла.ПолноеИмя);
			КонецЕсли;
			
			Если Перемещение = Истина Тогда                
				ПеремещениеФайл(НайденныйФайлКаталог.ПолноеИмя, СтрЗаменить(НайденныйФайлКаталог.ПолноеИмя, СтарыйПуть, НовыйПуть));
			Иначе
				КопироватьФайл(НайденныйФайлКаталог.ПолноеИмя, СтрЗаменить(НайденныйФайлКаталог.ПолноеИмя, СтарыйПуть, НовыйПуть));
			КонецЕсли;
		КонецЕсли;
		
	КонецЦикла;
	
	Если Перемещение = Истина Тогда
		УдалитьФайлы(СтарыйПуть);
	КонецЕсли;
	
КонецПроцедуры