Проверка структуры файла и удаление.

[gopstop2007]

В программе есть временные (temp) файлы (TPS), в которых может поменяется внутренняя структура.
При входе в программу нужно проверить эти файлы, если структура отличается от структуры в справочнике в DCT (dictonary), удалить эти файлы, без сообщения об ошибке, чтобы в тихую создать новые файлы.
Проверяю на не соответствие структуры файл

Код: Выделить всё

IF pFMt_.UseFile() <> Level:Benign
   pFMt_.Close()
   Remove(pFMt_.File)
   pFMt_.Open()
END        

Выдает сообщение, что файл поврежден и вылетает с программы не выполнив дальнейших действий.
Прошу помощи, спасибо заранее.

[Игорь Столяров]

Конечно лучше проверять структуру файлов через операторы Open() / Close(), а не методы ABC ...

[gopstop2007]

Конечно лучше проверять структуру файлов через операторы Open() / Close(), а не методы ABC ...

OPEN, не видит изменений структуры файла (, если только запись попробовать получить.

[Игорь Столяров]

Если не ошибаюсь, в CapeSoft FileManager это делалось, что-то вроде:

Код: Выделить всё

  Open(xFile_)
  If ErrorCode() then Do GetMyFileError.
  else
     Set(xFile_)
     Next(xFile_)
     If ErrorCode() then Do GetMyFileError.
  end   

и обрабатывать ошибку по коду.

[kreator]

Надо вызвать оператор share. И проверить код ошибки на неправильную структуру (кажется 52 ошибка).

[gopstop2007]

Если не ошибаюсь, в CapeSoft FileManager это делалось, что-то вроде:

Код: Выделить всё

  Open(xFile_)
  If ErrorCode() then Do GetMyFileError.
  else
     Set(xFile_)
     Next(xFile_)
     If ErrorCode() then Do GetMyFileError.
  end   

и обрабатывать ошибку по коду.

Пробовал, при дальнейшей работе начинает ругаться на не открытые файлы, хотя ошибок до этого не наблюдалось (

Надо вызвать оператор share. И проверить код ошибки на неправильную структуру (кажется 52 ошибка).

Спасибо, то что надо, только код ошибки 47.