大家好，我的一个access数据库备份代码
        编译没有错误，在运行时也可以打开access数据库，但
     后面就显示不能复制数据，导致备份不成功。
代码如下：

//数据备份
procedure TForm1.Button5Click(Sender: TObject);
var
   f:tshfileopstruct;
begin
if messagedlg('备份数据库将创建一个新的access数据备份文件。'+#13+#10+''+#13+#10+'你确定要备份数据库吗？',mtconfirmation,[mbyes,mbno],0)=mrno then exit;
   f.Wnd:=handle;
   f.wFunc:=fo_copy;//操作方式，拷贝数据
   f.pFrom:=pAnsichar(extractfiledir(application.ExeName)+'\data\fb.mdb+#0');
   opendialog2.Filter:='access文件(*.mdb)|*.mdb';
   opendialog2.Title:='选择备份路径和文件名';
   opendialog2.InitialDir:=extractfiledir(application.ExeName)+'\backup';
if opendialog2.Execute  then
   f.pTo:=pansichar(opendialog2.FileName+'[access备份'+formatdatetime('yyyy-mm-dd',now)+']'+'.mdb');//进行文件备份
   f.fFlags:=fof_allowundo or fof_renameoncollision;//操作选项
if shfileoperation(f)=0  then
   messagedlg(#13+#10+'access数据文件备份成功!',mtinformation,[mbyes],0)
else
   messagedlg(#13+#10+'access数据文件备份失败!',mtwarning,[mbyes],0);
end;



//时间显示
procedure TForm1.FormCreate(Sender: TObject);
begin
     label1.Caption:=label1.Caption+formatdatetime('yyyy-mm-dd hh:mm:ss',now);
end;

end.
求高手指点一下啊