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