//Возвращает Истина - скопирован, иначе Ложь Функция СкопироватьФайл(ИмяФайлаИсточник, ИмяФайлаНазначение, ВыдаватьСообщения = Ложь) Экспорт Попытка ПозицияСимвола = СтрДлина(ИмяФайлаНазначение); Пока ПозицияСимвола >= 1 Цикл Если Сред(ИмяФайлаНазначение, ПозицияСимвола, 1) = "\" Тогда Возврат ПозицияСимвола; КонецЕсли; ПозицияСимвола = ПозицияСимвола - 1; КонецЦикла; КаталогФайла=Сред(ИмяФайлаНазначение, 1, ПозицияСимвола - 1); СоздатьКаталог(КаталогФайла); КопироватьФайл(ИмяФайлаИсточник, ИмяФайлаНазначение); Исключение Сообщение = "Ошибка при копировании: " + ОписаниеОшибки() + " (источник: " + ИмяФайлаИсточник + "; приемник: " + ИмяФайлаНазначение + ")"; Если ВыдаватьСообщения Тогда Сообщить(Сообщение); КонецЕсли; Предупреждение(Сообщение); Возврат Ложь; КонецПопытки; Возврат Истина; КонецФункции
