При сохранении данных на дискету нужно организовать контроль ошибок, в частности проверку наличия носителя в дисководе. Сделать это можно следующим образом:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Выгружаем = 0; Попытка Если СтрДлина(ФС.НайтиПервыйФайл("a:\*.*")) > 0 Тогда Если Вопрос("Дискета содержит информацию. Продолжить?","Да+Нет")= "Да" Тогда Выгружаем = 1; КонецЕсли; Иначе Выгружаем = 1; КонецЕсли; Если Выгружаем = 1 Тогда //процедура сохранения данных КонецЕсли; Исключение Предупреждение("Ошибка записи. Проверьте доступность носителя. (" + ОписаниеОшибки() + ")"); КонецПопытки; |
About the Author
