0
我用下面的代碼DBF/MDX文件從一個文件夾複製到另一個:錯誤複製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
如果函數調用失敗,返回值是零。要獲得擴展的錯誤信息,請調用GetLastError。 – 2011-02-07 23:19:02