Нет в списке базы

[Alex56]

Что тут

Процедура ПолучитьСписокИБ77()
   
   ТаблицаПути.Очистить();
   
   СписокИБ = Новый Соответствие;
   
   Попытка
      HKEY_CURRENT_USER   = 2147483649;
      СписокБаз77         = "Software\1C\1Cv7\7.7\Titles";
      
      СистемныйРеестр = ПолучитьCOMОбъект("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv");
      
      МассиИБ = Неопределено;
      СистемныйРеестр.EnumValues(HKEY_CURRENT_USER, СписокБаз77, МассиИБ);
      Для Каждого ПутьИБ Из МассиИБ Цикл
         ИмяИБ = "";
         СистемныйРеестр.GetStringValue(HKEY_CURRENT_USER, СписокБаз77, ПутьИБ, ИмяИБ);
         СписокИБ.Вставить(ИмяИБ, ПутьИБ);
      КонецЦикла;
      
   Исключение
      Возврат;
      
   КонецПопытки;
   
   Если СписокИБ.Количество() = 0 Тогда
      Возврат;
   КонецЕсли;
   
   ФайлОписанияМетаданных = Новый ТекстовыйДокумент;
   
   МассивИменФайлов = Новый Массив;
   МассивИменФайлов.Добавить("1cv7.dd");
   МассивИменФайлов.Добавить("1cv7.dds");
   
   Для Каждого КлючИЗначение Из СписокИБ Цикл
      Название   = КлючИЗначение.Ключ;
      Путь      = КлючИЗначение.Значение;
      
      ЯвляетсяКонфигурациейЗиК = Ложь;
      Для Каждого ИмяФайла Из МассивИменФайлов Цикл
         ФайлДляПроверки = Новый Файл(Путь + ИмяФайла);
         Если ФайлДляПроверки.Существует() Тогда
            ФайлОписанияМетаданных.Прочитать(Путь + ИмяФайла);
            ЯвляетсяКонфигурациейЗиК = Найти(ФайлОписанияМетаданных.ПолучитьТекст(), "CJ447") > 0;
            Прервать;
         КонецЕсли;
      КонецЦикла;
      
      Если Не ЯвляетсяКонфигурациейЗиК Тогда
         Продолжить;
      КонецЕсли;
      
      НоваяСтрока = ТаблицаПути.Добавить();
      НоваяСтрока.Имя                     = Название;
      НоваяСтрока.Путь                  = Путь;
   КонецЦикла;
   
   ТаблицаПути.Сортировать("Имя");
   
КонецПроцедуры

[GRADUS]

Ищешь проблемы, там где их нет.