Функция копирования файла с выводом сообщений о результатах

 //Возвращает Истина - скопирован, иначе Ложь 

Функция СкопироватьФайл(ИмяФайлаИсточник, ИмяФайлаНазначение, ВыдаватьСообщения = Ложь) Экспорт

	Попытка

		ПозицияСимвола = СтрДлина(ИмяФайлаНазначение);

		Пока ПозицияСимвола >= 1 Цикл

			Если Сред(ИмяФайлаНазначение, ПозицияСимвола, 1) = "\" Тогда

			Возврат ПозицияСимвола; 

			КонецЕсли;

		ПозицияСимвола = ПозицияСимвола - 1;	

		КонецЦикла;

		КаталогФайла=Сред(ИмяФайлаНазначение, 1, ПозицияСимвола - 1); 

		СоздатьКаталог(КаталогФайла);

		КопироватьФайл(ИмяФайлаИсточник, ИмяФайлаНазначение);

	Исключение

		Сообщение = "Ошибка при копировании: " + ОписаниеОшибки() + 

			" (источник: " + ИмяФайлаИсточник + "; приемник: " + ИмяФайлаНазначение + ")";

		Если ВыдаватьСообщения Тогда 

			Сообщить(Сообщение);

		КонецЕсли;					 

		Предупреждение(Сообщение);

		Возврат Ложь;

	КонецПопытки;

	Возврат Истина;

КонецФункции