Открыть диалог выбора каталога

 Режим = РежимДиалогаВыбораФайла.ВыборКаталога; 
ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим); 
ДиалогОткрытия.Каталог = ""; 
ДиалогОткрытия.МножественныйВыбор = Ложь; 
ДиалогОткрытия.Заголовок = "Выберите каталог"; 

Если ДиалогОткрытия.Выбрать() Тогда 
	ПутьККаталогу = ДиалогОткрытия.Каталог; 
КонецЕсли;   

 
Процедура ВыборКат()
Если  ФС.ВыбратьКаталог(ИмяПути, "Выберите каталог")=1 Тогда
  Путь = имяПути;
КонецЕсли;
КонецПроцедуры