1 2 3 4 5 6 7 8 9 |
Режим = РежимДиалогаВыбораФайла.ВыборКаталога; ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим); ДиалогОткрытия.Каталог = ""; ДиалогОткрытия.МножественныйВыбор = Ложь; ДиалогОткрытия.Заголовок = "Выберите каталог"; Если ДиалогОткрытия.Выбрать() Тогда ПутьККаталогу = ДиалогОткрытия.Каталог; КонецЕсли; |
1 2 3 4 5 |
Процедура ВыборКат() Если ФС.ВыбратьКаталог(ИмяПути, "Выберите каталог")=1 Тогда Путь = имяПути; КонецЕсли; КонецПроцедуры |