Чем-нибудь платформа мне может помочь?
КаталогДокументов() нашёл. Дальше всё руками?

Блокнотом открой, там все е

(1) Я в курсе)
Надо из 1С. Вот и подумал, может уже что-то есть.

(2) Пропарси файл из 1С

+(3) по квадратным скобкам []

Жаль)
Спасибо!

(0) открывай его как текстовый документ и считывай построчно. Не должно быть проблем

(5) И Вам не хворать! :)) Привет с физтеха!

(0)
Процедура ПрочитатьСписокБаз(ВерсияПлатформы, ПутьКФайлу)
    
    ТекстовыйДокумент = Новый ТекстовыйДокумент;
    ТекстовыйДокумент.Прочитать(ПутьКФайлу);
    
    КоличествоСтрок = ТекстовыйДокумент.КоличествоСтрок();
    Для НомерСтроки = 1 По КоличествоСтрок Цикл
        ИмяИБ    = "";
        ПутьИБ    = "";
        Папка    = "";
        
        ТекущаяСтрока = ТекстовыйДокумент.ПолучитьСтроку(НомерСтроки);
        Если Лев(ТекущаяСтрока,1) = "[" И Прав(ТекущаяСтрока,1) = "]" Тогда
            ИмяИБ = Сред(ТекущаяСтрока,2,СтрДлина(ТекущаяСтрока)-2);
            НомерСтроки = НомерСтроки + 1;
            ТекущаяСтрока = ТекстовыйДокумент.ПолучитьСтроку(НомерСтроки);
            Если Найти(ТекущаяСтрока, "Connect=File=") <> 0 Тогда
                ПутьИБ = Сред(ТекущаяСтрока, 9, СтрДлина(ТекущаяСтрока)- 9);
                
                НоваяСтрока = ТаблицаПути.Добавить();
                НоваяСтрока.Имя        = ИмяИБ;
                НоваяСтрока.Путь    = ПутьИБ;
                
            ИначеЕсли Найти(ТекущаяСтрока, "Connect=Srvr=") <> 0 Тогда
                ПутьИБ = Сред(ТекущаяСтрока, 9, СтрДлина(ТекущаяСтрока)- 9);
                
                НоваяСтрока = ТаблицаПути.Добавить();
                НоваяСтрока.Имя        = ИмяИБ;
                НоваяСтрока.Путь    = ПутьИБ;
                
            КонецЕсли;
            
            Если НомерСтроки >= КоличествоСтрок Тогда
                Прервать;
            КонецЕсли;
            
        КонецЕсли;
    КонецЦикла;
    
КонецПроцедуры