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:\データ\ 2011 \ ORDLY.MDX
関数が失敗した場合、戻り値はゼロです。拡張エラー情報を取得するには、GetLastErrorを呼び出します。 –
この関数は機能しました。ファイルがコピーされました。デルファイだけが名前を変更したファイルを気に入らなかった。私がdBASEでそれらを開いたとき、彼らは大丈夫でした。 – ChuckO