Открывает диалог выбора пути к файлу (каталогу), возвращает путь
// Функция - Путь к файлу
// 20200904 Версия свежее в комментариях
//
// Параметры:
// Заголовок - Строка - НПР: "Укажите путь к базе Поставщиков"
// Фильтр - Строка - НПР: "(*.txt)|*.txt"
// Режим - РежимДиалогаВыбораФайла - НПР: РежимДиалогаВыбораФайла.Открытие
// ИсходныйПуть - Строка - НПР: Путь чтобы выбор начинался в определённом месте
//
// Возвращаемое значение:
// Строка, Неопределено - В случае успеха Путь в виде Строки, иначе Неопределено
//
// Пример:
// Элемент.Значение = ПутьКФайлу("Выберите путь к файлу с данными (xls):","(*.xls*)|*.xls*", РежимДиалогаВыбораФайла.Открытие, Элемент.Значение)
Функция ПутьКФайлу(Заголовок, Фильтр, Режим, ИсходныйПуть = Неопределено) Экспорт
Результат = Неопределено;
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла (Режим);
//выбор начнётся по исходному пути?!
Если ИсходныйПуть <> Неопределено Тогда
Если Режим = РежимДиалогаВыбораФайла.ВыборКаталога Тогда
ДиалогОткрытияФайла.Каталог = ИсходныйПуть;
ИначеЕсли Режим = ДиалогОткрытияФайла.ПолноеИмяФайла Тогда
ДиалогОткрытияФайла.ПолноеИмяФайла = ИсходныйПуть;
КонецЕсли;
КонецЕсли;
ДиалогОткрытияФайла.ПолноеИмяФайла = "";
ДиалогОткрытияФайла.МножественныйВыбор = Ложь;
ДиалогОткрытияФайла.Заголовок = Заголовок;
ДиалогОткрытияФайла.Фильтр = Фильтр;
Успех = ДиалогОткрытияФайла.Выбрать();
Если Успех Тогда
Если Режим = РежимДиалогаВыбораФайла.ВыборКаталога Тогда
Результат = ДиалогОткрытияФайла.Каталог;
Иначе
Результат = ДиалогОткрытияФайла.ПолноеИмяФайла;
КонецЕсли;
Иначе
Результат = Неопределено;
КонецЕсли;
Возврат Результат;
КонецФункции
ПутьКИсполняемомуФайлуИзРеестраWindows (БСП)
РасположениеИсполняемогоФайла (БСП)
ЗанестиИнформациюФайлаВРегистр (БСП)
ПолучитьУникальноеИмяСПутем (БСП)
СохранитьРасположениеИсполняемогоФайлаВызовОнлайнПоддержки (БСП)
#1, ред. 04 сентября 2020 09:08
Немного освежил: