При попытке открыть ДБФ-файл вываливается с ошибкой: "Перед выполнением операции нужно закрыть базу!". Файлы не открыты

ДБФ = СоздатьОбъект("XBASE");
ПутьФ = "D:\obmen\";
ФС.УстТекКаталог(ПутьФ);
Файл = ФС.НайтиПервыйФайл("*.*");
Файл = ФС.НайтиСледующийФайл();
Пока ПустоеЗначение(Файл) = 0 Цикл // цикл по файлам в каталоге
 Файл = ФС.НайтиСледующийФайл();
 ИмяФайла = ПутьФ+Файл;
 ДБФ.ОткрытьФайл(ИмяФайла);
 Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда
  Если ДБФ.Открыта()=0 Тогда //проверяем, удалось ли открыть файл
   Сообщить("Не удалось открыть файл!");
  КонецЕсли;

Книга знаний: Файловая система (ФС)
Книга знаний: Пример работы с файлами DBF по интерфейсу ADO из 1С v 7.7

(1) типа умный...

Путь = "D:\1СBases\NOM.dbf";
   Если ФС.СуществуетФайл(Путь) = 0 Тогда
       Сообщить("Файл базы не найден!","!");
       Возврат;
   КонецЕсли;    
   БД = СоздатьОбъект("XBase");
   Попытка
       БД.ОткрытьФайл(Путь);
   Исключение              
       БД.ЗакрытьФайл();
       БД.ОткрытьФайл(Путь);
   КонецПопытки;
   Если БД.Открыта() = 0 Тогда
       Сообщить("Ошибка открытия базы !","!");
       Возврат;
   КонецЕсли;

(3) прикольно...
а из-за чего ругаться может?

всеравно не работает

   ДБФ = СоздатьОбъект("XBASE");
   ПутьФ = "D:\БазыРеализации\Авиапро\obmen\";
   ФС.УстТекКаталог(ПутьФ);
   Файл = ФС.НайтиПервыйФайл("*.*");
   Файл = ФС.НайтиСледующийФайл();
   Пока ПустоеЗначение(Файл) = 0 Цикл // цикл по файлам в каталоге
       Файл = ФС.НайтиСледующийФайл();
       ИмяФайла = ПутьФ+Файл;
       
       Попытка
           ДБФ.ОткрытьФайл(ИмяФайла);
       Исключение
           ДБФ.ЗакрытьФайл();
           ДБФ.ОткрытьФайл(ИмяФайла);
       КонецПопытки;
       
       Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда
           Если ДБФ.Открыта()=0 Тогда //проверяем, удалось ли открыть файл
               Сообщить("Не удалось открыть файл!");
           КонецЕсли;

(4) ты этот D:\1СBases\NOM.dbf случаем никаким dbfViewer' ом не открыл параллельно?

(6) так в том-то и дело: перезагружался, удалял - ничего не помогает :(

(7) а пробовал этот файл еще чем нибудь открыть? тем же dbfViewer или dbfNavigator

(8) нормально открывается

(9) Есть программа, unlocker, вроде...

(10) файл ничем/никем не заблокирован: нормально удаляется

А зачем ты его удаляешь? Не удаляй...

У тебя именно этот файл не открывается или вообще ни один?

(13) у меня их в папке два, не один не открывается. перезагружался - не помогло. из внешней обработки, такой же в ноль код работает, из глобальника - нет

(14)атрибуты файла проверь

(15) пучком все с атрибутами...

неужели ни у кого такого небыло ?

имена файлов давай?

(18) не понял?

у меня так было когда файлы имели кирилические символы или были больше 8 символов в названии

(20) у меня файлы называются 1.dbf, 2.dbf, 3.dbf и т.д.
причем обработкой открываются, а из глобальника нет

какой обработкой?

(22)точной копией процедуры из глобальника. написал чтобы удобнее было отладить

та что в (0)

а ты ее из глобальника убрал?

+(25) т.е. они у тебя не пытаются дважды открыться? ты их после пользования закрываешь?

(26) написал во внешней обработке, отладил. все гуд
впихнул в глобальник - выдает ошибку. удалил файлы - пофиг. перегрузился - пофиг, атрибуты файлов - гуд

а отладчиком что показывает?

(28) а отладчик куда пихать?

У тебя переменные в глобальнике не пересекаются?

а что ты вообще в них пишешь?

(30) переменные не пересекаются
(31) в файле содержится структура справочника другой базы

Был у меня такой прикол. Для открытия файла запустил цикл, так вот файл открылся с четвертой попытки. Платформа 1С рулит.

(33) а лечить как?

Платформу лечить нужно. Не ожидает она момента открытия, спешит куда-то.

(35) а конкретные предложения? ведь из внешней обработки все работает

Ха. А уменя как раз во внешней обработке не работало.

(37) а в глобальном все пучком?

Не заморачивайся. Поставь цикл и все срастется. Секунда туда секунда сюда. Все остальное работает дольше.

цикл с 1 по 100 000 хватит?

Да я же говорю с четвертой попытки. Цикл
ДБ.ОткрытьФайл(ИмяФайла);
Пока ДБ.Открыта()=0 Цикл
   ДБ.ОткрытьФайл(ИмяФайла);
КонецЦикла;

(41) т.е. этот кусок в цикл на 4-5 раз?

(40) Поставь перед словом "Попытка"  строчку Сообщить(Файл);

Да нет, это все. Просто я там счетчик при отладке вставлял и его потом смотрел при выходе из цикла.

(43) поставил. сообщает имя файла который там есть
(44) понял, спасибо. буду пробывать (бредятина какая-то)

прокрутилось чуть больше 10 раз, толку 0

уже минут 40 крутится и не читает

Ну извини. Я описал как было у меня.

У меня правда проблема была в том, что файл создавался в обработке. Перед открытием стоял цикл задержки по условию наличия файла в каталоге. Так вот слету файл не открывался, а с четвертой попытки все получалось. Может у тебя он действительно чем-то он блокируется?

(49)  я так понимаю, что если файл блокируется, то с ним ничего нельзя сделать: не удалить, не переместить, но! у меня и удаляется и перемещается

А нет ли ограничения на количество открытых файлов xBase? Я не знаю, просто предположение?

(51) это как?

И еще. Когда я в глобальном модуле при начале работы запустил небольшую обработку справочника на 23000 элементов, то работа системы продолжилась, а справочник продолжал обрабатываться, и меню осталось недоступным. Как у тебя вызывается эта процедура?

(52) Сколько одновременно можно создать объектов xBase?

(53) вызывается по таймеру
(54) как узнать?

Че то я не понял. Зачем ты файлы открываешь, закрываешь?
А строчка "Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда"
вообще непонятно для чего.

(56) цикл по файлам в каталоге

Нука отпость сюда путь к каталогу...
и код обработки

ДБФ = СоздатьОбъект("XBASE");
   ПутьФ = "D:\obmen\";
   ФС.УстТекКаталог(ПутьФ);
   Файл = ФС.НайтиПервыйФайл("*.*");
   Файл = ФС.НайтиСледующийФайл();
   Пока ПустоеЗначение(Файл) = 0 Цикл // цикл по файлам в каталоге
       Файл = ФС.НайтиСледующийФайл();
       ИмяФайла = ПутьФ+Файл;
       
       ДБФ.ОткрытьФайл(ИмяФайла);

       Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда
           Если ДБФ.Открыта()=0 Тогда //проверяем, удалось ли открыть файл
               Сообщить("Не удалось открыть файл!");
           КонецЕсли;


и так далее

Може все дело в вызове по таймеру? Может что-то с синхронизацией событий открытия-закрытия? Эх отладчик тупой.

"*.*" Че эт за лажа ?
Ты все подряд пытаешься открывать ? может отфильтруешь по "*.dbf" ?

И блин, нафига ты вначале пытаешься открыть файл, а потом только проверяешь существование его ?

Файл = ФС.НайтиСледующийФайл();
сообщить(Файл);
       ИмяФайла = ПутьФ+Файл;
Сообщить(ИмяФайла);

(61) у меня там только дбф
(62) исправил - пофиг

спецы иссякли...

Выложи процедуру целиком.

Возможно, что у тебя неправильно отрабатывает путь... Попробуй полностью прописать путь, с учетом сетевого адреса, либо попробуй перекинуть этот каталог на диск С, и соответственно в коде поменять путь с Д на С.

ДБФ = СоздатьОбъект("XBASE");
   ПутьФ = "D:\БазыРеализации\Авиапро\obmen\";
   ФС.УстТекКаталог(ПутьФ);
   Файл = ФС.НайтиПервыйФайл("*.*");
   Файл = ФС.НайтиСледующийФайл();
   Пока ПустоеЗначение(Файл) = 0 Цикл // цикл по файлам в каталоге
       Файл = ФС.НайтиСледующийФайл();
       ИмяФайла = ПутьФ+Файл;
       
       ДБФ.ОткрытьФайл(ИмяФайла);
       
       Если ФС.СуществуетФайл(ИмяФайла) = 1 Тогда
           Если ДБФ.Открыта()=0 Тогда //проверяем, удалось ли открыть файл
               Сообщить("Не удалось открыть файл!");
           КонецЕсли;
           
           Состояние("Загружаем данные...");
           
           тз = СоздатьОбъект("ТаблицаЗначений");
           тз1 = СоздатьОбъект("ТаблицаЗначений");
           ДБФ.Первая(); //позиционируемся на первой записи
           Пока ДБФ.ВКонце()=0 Цикл //пока не дошли до конца, крутим цикл
               тз.НоваяСтрока();
               тз1.НоваяСтрока();
               // шапка документа
               тз.NOMERDOC = ДБФ.NOMERDOC;   // номер документа
...
               тз.KOLVO    = ДБФ.KOLVO;       // количество
               ДБФ.Следующая();
           КонецЦикла;
           ДБФ.ЗакрытьФайл();
           ФС.УдалитьФайл(ИмяФайла);
       КонецЕсли; // проверка на наличе файла    
   КонецЦикла; // конец цикла по файлам в папке

(67) с путем все ок

Попробуй из пути убрать Кириллицу. C:\DBFfiles\obmen

Кста у тя поиск пропускает первые два файла.

Файл = ФС.НайтиПервыйФайл("*.*");  //ты уже на файл спозиционировался
Файл = ФС.НайтиСледующийФайл(); // гоп на второй
Пока ПустоеЗначение(Файл) = 0 Цикл
Файл = ФС.НайтиСледующийФайл(); // гоп на третий ;)
ИмяФайла = ПутьФ+Файл;

Делай

Пока 1=1 Цикл
...

Файл = ФС.НайтиСледующийФайл(); // гоп на третий ;)
Если ПустоеЗначение(Файл)=1 Тогда
 Прервать;
КонецЕсли;
КонецЦикла;

// гоп на третий ;)  не отсюда

(21) Не начинай файл с цифры. Сделай хотя бы F1.dbf F2.dbf ...

В фоксе такие файлы не открываются

ДБФ = СоздатьОбъект("XBASE");
   ПутьФ = "D:\БазыРеализации\Авиапро\obmen\";
   ФС.УстТекКаталог(ПутьФ);
   Файл = ФС.НайтиПервыйФайл("*.dbf");
   Пока ПустоеЗначение(Файл) = 0 Цикл
       ИмяФайла = ПутьФ+Файл;    
       ДБФ.ОткрытьФайл(ИмяФайла);    
       Состояние("Загружаем данные...");    
           тз = СоздатьОбъект("ТаблицаЗначений");
           тз1 = СоздатьОбъект("ТаблицаЗначений");
           ДБФ.Первая(); //позиционируемся на первой записи
           Пока ДБФ.ВКонце()=0 Цикл //пока не дошли до конца, крутим цикл
               тз.НоваяСтрока();
               тз1.НоваяСтрока();
               тз.NOMERDOC = ДБФ.NOMERDOC;   // номер документа
               тз.KOLVO    = ДБФ.KOLVO;       // количество
               ДБФ.Следующая();
           КонецЦикла;
           ДБФ.ЗакрытьФайл();
           ФС.УдалитьФайл(ИмяФайла);
           Файл = ФС.НайтиСледующийФайл();
   КонецЦикла;

(76) в таком варианте работает, только загружает один файл, а остальные удаляет

А может dbf-файлы не одного типа (FoxPro, dBase), например файлы типа Fox2x открываются а выше версий нет.

(77) Не нарушай выборку удалением, сделай так:

Спс1=СоздатьОбъект("СписокЗначений");
Файл=ФС.НайтиПервыйФайл("*.*");

Пока пустоеЗначение(Файл)=0 Цикл
   Спс1.ДобавитьЗначение(Файл);
   Файл=ФС.НайтиСледующийФайл();
КонцЦИкла;

а потом обрабатывай список.

(78) файлы созданы в 1С
(79) а не черезчур запутанно и сложно?

Вот тебе окончательный вариант. Он работает.

   ДБФ = СоздатьОбъект("XBASE");
   ПутьФ = "D:\БазыРеализации\Авиапро\obmen\";
   ФС.УстТекКаталог(ПутьФ);
   Файл = ФС.НайтиПервыйФайл("*.dbf");
   Пока ПустоеЗначение(Файл) = 0 Цикл
       ИмяФайла = ПутьФ+Файл;    
       ДБФ.ОткрытьФайл(ИмяФайла);    
       Состояние("Загружаем данные...");    
           тз = СоздатьОбъект("ТаблицаЗначений");
           тз1 = СоздатьОбъект("ТаблицаЗначений");
           ДБФ.Первая(); //позиционируемся на первой записи

           Пока ДБФ.ВКонце()=0 Цикл //пока не дошли до конца, крутим цикл

               тз.НоваяСтрока();
               тз1.НоваяСтрока();
               тз.NOMERDOC = ДБФ.NOMERDOC;   // номер документа

               тз.KOLVO    = ДБФ.KOLVO;       // количество

               ДБФ.Следующая();
           КонецЦикла;
           ДБФ.ЗакрытьФайл();
           Файл = ФС.НайтиСледующийФайл();
           ФС.УдалитьФайл(ИмяФайла);          
   КонецЦикла;

(81) блин... не работает

(82) Где не работает?

Первые два файла будут "." и ".."

(84) угу

(83) загружает один из двух файлов и все

А может не удалять в цикле файлы, а удалить потом после загрузки?