Функция проверяет наличие каталога на диске и предлагает создать, если каталога не существует.

 

//Функция Проверяет наличие каталога на диске и предлагает создать, если каталога не существует.

//

// Параметры

//  ИмяКаталога  – Строка, содержащая путь к каталогу файла на диске.

//

// Возвращаемое значение:

//   Булево – Истина, если каталог существует или создан, Ложь, если каталога нет.

//

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



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

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

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

	Иначе

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

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

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

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

		Иначе

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

		КонецЕсли;

	КонецЕсли;



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