Я использую следующий код для копирования файлов dbf / mdx из одной папки в другую:
procedure TfrmMain.MyCopyFile(S1, S2: string);
begin
if not FileExists(S2) then
CopyFile(PCHAR(S1), PCHAR(S2), true)
else
if Application.MessageBox(PCHAR('Overwrite existing file ' + S2 + '?'), 'File exists in folder',MB_YESNO + MB_DEFBUTTON1) = IDYES
then CopyFile(PCHAR(S1), PCHAR(S2), false)
end;
Код отлично работает, когда имя таблицы остается прежним.
Если я изменю имя таблицы:
MyCopyFile(CurPath + '\orders.dbf', NewPath + '\ordly.dbf');
MyCopyFile(CurPath + '\orders.mdx', NewPath + '\ordly.mdx');
Когда я пытаюсь открыть ordly.dbf , я получаю сообщение об ошибке:
Поврежденный заголовок таблицы / индекса.
Файл: C: \ DATA \ 2011 \ ORDLY.MDX