如何在程序中实现一个目录备份(50分)

我是的初学者，请问如何在程序中实现C:/一个目录备份到D:/下，如D：/有这目录就覆盖，没有就新建并复制。
谢谢。

把目录c:/aaa复制为c:/bbb
USES ShellApi
var:
lpFileop:TSHFileopstruct;
begin
with lpfileop do
begin

wnd:=self.Handle;
wfunc:=Fo_move;
pfrom:=pchar('c:/aaa');
pto:=pchar('c:/bbb');
fflags:=fof_allowundo;
hnamemappings;=nil;
lpszprogresstitle:=nil;
fanyoperationsaborted:=true;
end;
if shfileoperation(lpfileop)<>0 then
showmessage('删除失败');
end;

可以使用copyfile这个函数。在复制前先判断目标目录里是否存在要复制的文件即可。