БД = Новый XBase; 
БД.Поля.Добавить("CODE", "S", 5); 
БД.Поля.Добавить("NAME", "S", 40); 
БД.СоздатьФайл(Путь + "start.dbf", Путь + "index.cdx"); 
БД.Индексы.Добавить("IDXCODE", "CODE"); 
ФлИБД = БД.СоздатьИндексныйФайл(Путь + "index.cdx"); 
БД.АвтоСохранение = Истина; 
Выборка = Справочники.Номенклатура.ВыбратьИерархически(); 
Пока Выборка.Следующий() Цикл 
     БД.Добавить(); 
 БД.CODE = Выборка.Код; 
 БД.NAME = Выборка.Наименование; 
КонецЦикла; 
БД.ЗакрытьФайл(); 
БД = Новый XBase; 
БД.ОткрытьФайл(Путь + "start.dbf", Путь + "index.cdx"); 
БД.ТекущийИндекс = БД.Индексы.IDXCODE; 
Пока БД.Следующая() Цикл 
    Сообщить(БД.CODE); 
     Сообщить(БД.NAME); 
КонецЦикла; 
БД.ЗакрытьФайл();