Код 1C v 7.x
 ИмяВыбрФайла = "";
ИмяПути=КаталогИБ()+"ProgFile\";
   Если ФС.ВыбратьФайл(0, ИмяВыбрФайла, ИмяПути, "Выберите файл запуска программы", "Все файлы (*.*)!*.*", , ) = 1 Тогда
     ПутьЗ=СРЕД((ИмяПути + ИмяВыбрФайла),3,80);
 КонецЕсли;


Продолжение необходимо зарегистрироваться для просмотра ссылки топика