Уведомления
Очистить все
1С:Предприятие 8.x
1
Записи
1
Пользователи
0
Likes
3,912
Просмотры
Создатель темы 23/12/2022 1:14 пп
Проверим существование файла. Если не существует, покажем соответствующее предупреждение пользователю.
ПутьКФайлу = "D:\КакаяТоПапка\НашФайл.xml"; ПроверяемыйФайл = Новый Файл(ПутьКФайлу); Если НЕ ПроверяемыйФайл.Существует() Тогда ПоказатьПредупреждение(, СтрШаблон("Файл по указанному пути: ""%1"" не обнаружен.", ПутьКФайлу)); КонецЕсли;
Проверим существование каталога. Если не существует, покажем соответствующее сообщение пользователю, с предложением создать новый каталог.
&НаКлиенте Функция ПроверитьСуществованиеСоздатьКаталог() ПутьККаталогу = "D:\КакаяТоПапка"; ПроверяемыйКаталог = Новый Файл(ПутьККаталогу); ДополнительныеПараметры = Новый Структура; ДополнительныеПараметры.Вставить("ПутьККаталогу", ПутьККаталогу); Если ПроверяемыйКаталог.Существует() Тогда Возврат Истина; Иначе ПоказатьВопрос(Новый ОписаниеОповещения("ПроверитьСуществованиеСоздатьКаталогПродолжение", ЭтотОбъект, ДополнительныеПараметры), СтрШаблон("Каталог: ""%1"" не обнаружен. Создать?", ПутьККаталогу), РежимДиалогаВопрос.ДаНет); Возврат Ложь; // Внимание! Такая конструкция функции вернёт Ложь, если каталог не существует. // Не зависимо от ответа на вопрос: "Каталог: "D:\КакаяТоПапка" не существует. Создать?". // Другими словами, даже если пользователь ответил "Да" и каталог был создан. // Смотри (Использование модальности) КонецЕсли; КонецФункции &НаКлиенте Процедура ПроверитьСуществованиеСоздатьКаталогПродолжение(Результат, ДополнительныеПараметры) Экспорт Если НЕ Результат = КодВозвратаДиалога.Да Тогда Возврат; КонецЕсли; СоздатьКаталог(ДополнительныеПараметры.ПутьККаталогу); КонецПроцедуры