在Delphi中如何做Access数据库的备份??请高手帮忙一下.

Question

var
  path:string;
begin
  if RadioButton1.Checked then
  if SaveDialog1.Execute then
    if SaveDialog1.FileName <> '' then
    begin
      path:=ExtractFilePath(application.ExeName)
      try
        copyfile(pchar(path+ '123.mdb'), pchar(SaveDialog1.FileName+'.bak'), false);
        messagebox(getactivewindow(),'成功备份数据！','提示！' ,MB_OK + MB_ICONINFORMATION);
      except
        messagebox(getactivewindow(),'备份数据失败，请重试！!','错误！' ,MB_OK + MB_ICONERROR);
      end;
    end;
为什么必须把数据库文件放在源程序的目录下才可以备份数据库文件到其他盘,
如果把数据库文件不放源程序目录中就不可以,
请高手帮一下,我是delphi新手.先谢谢!!!

Answer 1

为什么必须把数据库文件放在源程序的目录下才可以备份数据库文件到其他盘,
下面这句读的就是应用程序的目录呀
path:=ExtractFilePath(application.ExeName)