Копирование всех файлов из одного каталога в другой

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