Добрый день! подскажите что в коде не верно? выдает предупреждение Не удается открыть файл экспорта



Процедура Сформировать()
   ПолноеИмяФайла = "D:\dok.dbf";
   
   Дбф = СоздатьОбъект("XBase");
   Если ФС.СуществуетФайл(СокрЛП(ПолноеИмяФайла)) = 0 Тогда
       Дбф.ДобавитьПоле("NomerDok","S",10,0);
       Дбф.ДобавитьПоле("DataDok","D",0,0);
       Дбф.ДобавитьПоле("IDD","S",17,0);
       Дбф.ДобавитьПоле("Vid","S",50,0);    
       Дбф.ЗакрытьФайл();
   Иначе
       ФС.УдалитьФайл(СокрЛП(ПолноеИмяФайла));
       Дбф.ДобавитьПоле("NomerDok","S",10,0);
       Дбф.ДобавитьПоле("DataDok","D",0,0);
       Дбф.ДобавитьПоле("IDD","S",17,0);
       Дбф.ДобавитьПоле("Vid","S",50,0);    
       Дбф.ЗакрытьФайл();
   КонецЕсли;
   
   Дбф.ОткрытьФайл(СокрЛП(ПолноеИмяФайла));
   Если Дбф.Открыта() <> 1 Тогда
       Предупреждение("Не удается открыть файл экспорта.");
       Возврат;
   КонецЕсли;
КонецПроцедуры

А создавать файл - Пушкин будет?

(1)+ и открывать

ой мля....
спс

Если ФС.СуществуетФайл(СокрЛП(ПолноеИмяФайла)) <> 0 Тогда
       ФС.УдалитьФайл(СокрЛП(ПолноеИмяФайла));
   КонецЕсли;
   Дбф.ДобавитьПоле("NomerDok","S",10,0);
   Дбф.ДобавитьПоле("DataDok","D",0,0);
   Дбф.ДобавитьПоле("IDD","S",17,0);
   Дбф.ДобавитьПоле("Vid","S",50,0);    
...

Дбф.Записать();

(0) всё не так...