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