关于系统的备份与恢复,请大家给个好的办法(38分)

有个系统中的一个test.mdb和images中的全部图片需要备份与恢复.
有没有好的办法呢?
我想的是能不能把这个数据库文件与images文件夹 压缩组合成一个文件来备份出来,
然后恢复时,再将此文件解开,拷贝到对应目录来完成恢复呢??
分不多,全给了.谢谢大家了.

没有帮帮我吗?给点思路也行啊.
自己先顶一下.

还是没人啊?
着急中~~~~~~~~~~

上面有SpeedButton,SaveDialog,OpenDialog,RadioButton控件
procedure Tsjbfyhy.SpeedButton1Click(Sender: TObject);
var
path:string;
begin
if RadioButton1.Checked then
if SaveDialog1.Execute then
if SaveDialog1.FileName <> '' then
begin
path:=ExtractFilePath(application.ExeName);
try
copyfile(pchar(' d:/data/test.mdb'), pchar(SaveDialog1.FileName+'.mdb'), false);
messagebox(getactivewindow(),'成功备份数据！','提示！' ,MB_OK + MB_ICONINFORMATION);
except
messagebox(getactivewindow(),'备份数据失败，请重试！!','错误！' ,MB_OK + MB_ICONERROR);
end;
end;
end;

procedure Tsjbfyhy.SpeedButton2Click(Sender: TObject);
var
path:string;
begin
if RadioButton2.Checked then
if OpenDialog1.Execute then
if OpenDialog1.FileName <> '' then
begin
path := ExtractFilePath(application.ExeName);
try
form1.ADOConnection1.Connected := false;
Deletefile('d:/data/test.mdb');
copyfile(pchar(OpenDialog1.FileName),pchar('d:/data/test.mdb'), false);
messagebox(getactivewindow(),'成功恢复数据,单击确定后请重新运行软件！','提示！' ,MB_OK + MB_ICONINFORMATION);
Application.Terminate;
except
messagebox(getactivewindow(),'恢复数据失败，请重试！!','错误！' ,MB_OK + MB_ICONERROR);
end;
end;
end;
可能有的地方没有改过来,这是我自己做的数据备份与还原!

楼上兄台讲解的只是备份与恢复数据库test.mdb文件啊,那还有 images文件的图片呢??
不过还是谢谢您的热心!

你下载一个vclzip控件 ，然后可以简单实现你需要的功能了。设置好以后会自动压缩，也可以简单实用代码控制来进行恢复 。

images文件夹下的图片其实也可以保存到数据库中啊
然后在需要的时候从数据库中取出来达到还原的目的