В начало

Проверить существование каталога

 

Функция ПроверитьСуществованиеКаталога (ИмяКаталога) Экспорт

    КаталогНаДиске = Новый Файл (ИмяКаталога);

    Если КаталогНаДиске.Существует () Тогда

        Возврат Истина;

    Иначе

        Ответ = Вопрос ("Каталог не существует. Создать?", РежимДиалогаВопрос.ОКОтмена);

        Если Ответ = КодВозвратаДиалога.ОК Тогда

            СоздатьКаталог (ИмяКаталога);

            Возврат Истина;

        Иначе

            Возврат Ложь;

        КонецЕсли;

    КонецЕсли;

КонецФункции