Ошибка при создании dbf (Перед выполнением операции нужно открыть базу)

Платформа 8.1, создаю дбф, при очистке ругается (Перед выполнением операции нужно открыть базу), дбф нигде не открыт в чем может быть причина?

Процедура КнопкаВыполнитьНажатие(Кнопка)

ТРТ = ПолучитьТРТЗаПериод();

Файл = Новый XBase;
Файл.Кодировка = КодировкаXBase.OEM;
Файл.Поля.Добавить("OL_ID", "N",20);
Файл.Поля.Добавить("OL_Code", "S",25);
Файл.Поля.Добавить("SubType_ID", "N",11);
Файл.Поля.Добавить("Area_ID", "N",11);
Файл.Поля.Добавить("Name", "S",255);
Файл.Поля.Добавить("Trade_Name", "S",255);
Файл.Поля.Добавить("Director", "S",50);
Файл.Поля.Добавить("Address", "S",255);

ПутьКФайлу = "С:\Snak.DBF"; // КаталогИБ() - функция, которая определяет путь к базе - в 8 ке нет встроенного механизма
Файл.СоздатьФайл(ПутьКФайлу);
Файл.Записать();

Файл.ОчиститьФайл();
Для Каждого СтрокаТРТ ИЗ ТРТ Цикл
Файл.Добавить();
Файл.OL_ID = 0;
Файл.OL_Code = СтрокаТРТ.ТорговаяТочка.Код;
Файл.SubType_ID = 0;
Файл.Area_ID = 0;
Файл.Name = СтрокаТРТ.ТорговаяТочка;
Файл.Trade_Name = СтрокаТРТ.ТорговаяТочка;
Файл.Director = "-";
Файл.Address = тглОбщегоНазначения.СформироватьАдресТРТ(СтрокаТРТ.ТорговаяТочка);
Файл.Записать();
КонецЦикла;
Файл.Записать();
Файл.ЗакрытьФайл();

КонецПроцедуры