Подскажите в чем ошибка не грузит записи.

ФайлАдр = создатьОбъект("XBASE");
     СпрПодр=Создатьобъект("Справочник.Подразделения");
     ФайлАдр.ОткрытьФайл ("D:\OS dor DBF and  ERT\Adres.dbf");
     ФайлАдр.Первая();
              
     Пока ФайлАдр.ВКонце()=0 Цикл
     СпрПодр.НайтиПоНаименованию(СокРЛП(ФайлАдр.NameAD));
     ИнфоПод=СпрПодр.ТекущийЭлемент();
     Сообщить("ИнфоПод"+ИнфоПод);
     Если ПустоеЗначение(ИнфоПод)=0 Тогда
     СпрПодр.Новый();
     СпрПодр.Наименование=СокрЛП(ФайлАдр.NameAD) ;
     СпрПодр.Записать();
     КонецЕсли;
     КонецЦикла;
     ФайлАдр.Следующая();

В каком месте? Отладчик что говорит?

(0) "не грузит записи" - в чём проявляется? что сообщает?
сами записи в файле есть?

да есть в файле

(0) Длина Adres.dbf -9 символов

(3) ++ (1) - смотри в отладчике

90 символов

(4) не 9, а 5 всего. Точка с расширением - не в счёт

И это.. лучше поместить файл в папку с именем без пробелов

Другие файлы грузит нормально из этой папки

(9) Кодировка файла?

(9) Таки и что пишет? Или - молча не грузит?

Грузит первую строчку и зацикливается
ФайлАдр = создатьОбъект("XBASE");
     СпрПодр=Создатьобъект("Справочник.Подразделения");
     ФайлАдр.ОткрытьФайл ("D:\OS dor DBF and  ERT\Adres_2.dbf");
     ФайлАдр.Первая();
    
     Пока ФайлАдр.ВКонце()=0 Цикл
         Сообщить("ФайлАдр.NameAD"+ФайлАдр.NameAD) ;
    Если СпрПодр.НайтиПоНаименованию(СокРЛП(ФайлАдр.NameAD))=1 Тогда
     ИнфоПод=СпрПодр.ТекущийЭлемент();
     Сообщить("ИнфоПод"+ИнфоПод);
    
Иначе
    
    СпрПодр.Новый();
    СпрПодр.Наименование=СокрЛП(ФайлАдр.NameAD) ;
    СпрПодр.Записать();
     КонецЕсли;
     КонецЦикла;
     ФайлАдр.Следующая();

Не пробовал ФайлАдр.Следующая() ВНУТРЬ цикла вставить?

СП

(14) Купил СП? У кого, почем?

(13) Писец...

(16) Кому? :)

(17) Автору, конечно... Не тебе же :))))))))

(13) Ну, одну-то запись (первую) он должен прочитать :)

(14) Люди, пишущие СП вместо спасибо, что вы делаете с кучей освободившегося времени?

(18) Уфффф... ну спасибо :)

(19) Ну, дык, он первую и грузит... А потом - думает - куда послать и на сколько :)))))))))))

(20) Этим они еще экономят место на просторах интернета!

ФайлАдр.Следующая(); - ВНУТРЬ ЦИКЛА ПОСТАВЬ

(24) см. (13)

(24) Чего ты кричишь? Уже давно ему сказали.

(26) Пытается докричаться до ТС.