怎么样备份数据库文件，在dephi6中

procedure TFrame5.SpeedButton1Click(Sender: TObject);
begin
CreateDir(ExtractFilePath(Application.ExeName )+'MDB\'+DateToStr(Date));
CopyFile(PChar(ExtractFilePath(Application.ExeName )+'MDB\勤工助学.mdb'),PChar(ExtractFilePath(Application.ExeName )+'MDB\'+DateToStr(Date)+'\勤工助学备份.mdb'),False);
FindFiles;
end;procedure TFrame5.SpeedButton2Click(Sender: TObject);
begin
try
  begin
    if ListView1.Selected.Selected then
      CopyFile(PChar(ExtractFilePath(Application.ExeName)+'MDB\'+Listview1.Selected.Caption +
      '\勤工助学备份.mdb'),PChar(ExtractFilePath(Application.ExeName )+'MDB\勤工助学.mdb'),False);
      ShowMessage('还原成功！');
  end;
except
  ShowMessage('请选择要还原数据库的备份日期！');
end;
end;