HelpF.pro

Пример реализации контроля ошибок при сохранение данных на дискету

При сохранении данных на дискету нужно организовать контроль ошибок, в частности проверку наличия носителя в дисководе. Сделать это можно следующим образом:

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

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