[MiraLaklamon]

Сообщение от yasenkov

точнее вот код

Table3.Active:=false;
dir:=MyDir+'\db\export.dbf';
dirk:=MyDir+'\Выгрузка\export.dbf';
CopyFile(PChar(dir),PChar(dirk), true);
Table3.Active:=true;

Попробуй такой код:

Код:

var
  e: LongWord;
  dir, dirk: AnsiString;
...
begin
...
  dir:=MyDir+'\db\export.dbf';
  dirk:=MyDir+'\Выгрузка\export.dbf';

  e:=CopyFileA(PChar(dir), PChar(dirk), True);
  if e=NO_ERROR then
  begin
    MessageDlg('Файл успешно скопирован', mtInformation, [mbOK], 0);
  end else
  begin
    MessageDlg('При копировании ошибка: "'+SysErrorMessage(e)+'"', mtInformation, [mbOK], 0);
  end;
...
end;