Други, помогите! В 8.1 была функция в глобальнике, в 77 вообще типа ФС.ВыбратьКаталог()  а как тут с учетом клиент-сервера?

Ап, никто не делал?

УФ это тонкий клиент? Тогда думаю подойдет:

ДиалогВыбораФайла (FileDialog)
Свойства:

ВыбранныеФайлы (SelectedFiles)
Заголовок (Title)
ИндексФильтра (FilterIndex)
Каталог (Directory)
МножественныйВыбор (Multiselect)
ПолноеИмяФайла (FullFileName)
ПредварительныйПросмотр (Preview)
ПроверятьСуществованиеФайла (CheckFileExist)
Расширение (DefaultExt)
Режим (Mode)
Фильтр (Filter)

Методы:

Выбрать (Choose)

Конструкторы:

С заданным режимом работы

Описание:

Предназначен для работы с диалогом специального вида для открытия файла или нескольких файлов, сохранения файла или выбора каталога.

Доступность:

Тонкий клиент, веб-клиент, толстый клиент.
Пример:

Режим = РежимДиалогаВыбораФайла.Открытие;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
Текст = "ru = ""Текст""; en = ""Text""";
Фильтр = НСтр(Текст)+"(*.txt)|*.txt";
ДиалогОткрытияФайла.Фильтр = Фильтр;
ДиалогОткрытияФайла.МножественныйВыбор = Истина;
ДиалогОткрытияФайла.Заголовок = "Выберите файлы";
Если ДиалогОткрытияФайла.Выбрать() Тогда
   МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
   Для Каждого ИмяФайла Из МассивФайлов Цикл
       ВыбФайл = Новый Файл(ИмяФайла);
       Текст = "ru = ""; Размер = ""; en = ""; Size = """;
       Сообщить(ИмяФайла+НСтр(Текст)+ВыбФайл.Размер());
   КонецЦикла;
Иначе
   Текст = "ru = ""Файл(ы) не выбран!""; en = ""File(s) not selected!""";
   Предупреждение(НСтр(Текст));
КонецЕсли;

Ответить, я переделал твою, у меня получилось

   Режим = РежимДиалогаВыбораФайла.ВыборКаталога;
   ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
   ДиалогОткрытияФайла.Каталог = "";
   ДиалогОткрытияФайла.Заголовок = "Выберите каталог";
   Если ДиалогОткрытияФайла.Выбрать() Тогда
        ПутьВыгрузки = ДиалогОткрытияФайла.Каталог;
   Иначе
        Текст = "ru = ""Каталог для выгрузки не выбран!""; en = ""File(s) not selected!""";
        Предупреждение(НСтр(Текст));
   КонецЕсли;