HelpF.pro

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

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

Опубликовано на сайте: https://HelpF.pro
Прямая ссылка: https://HelpF.pro/faq/view/280.html