复制目录下的所以文件包括子目录下的所以文件。

[tonylisa]

怎么样复制目录下的所以文件包括子目录下的所以文件到另一个指定的文件夹里。
请大家多多指教。谢谢！

[bluemeteor]

复制目录：
///复制Source整个目录到DEST目录，如果Dest不存在，自动建立，如果DEST存在，那么Source将作为Dest的子目录！
//例如如果要复制E:\Temp整个目录到E:\那么代码为： copydirectory('e:\temp','e:\');
///如果要复制E:\Temp到E:\Test目录下面，那么代码为：CopyDirecotry('E:\Temp','E:\TEST');
function CopyDirectory(const Source, Dest: string): boolean;
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_COPY;
pFrom := PChar(source+#0);
pTo := PChar(Dest+#0);
fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ;
end;
Result := (SHFileOperation(fo) = 0);
end;

[Billy_Chen28]

参考：
uses shellpai;

var
Source,Dest:String;
FData : TShFileOpStruct;
begin
Source:='c:\sss';//sss为目录
dest:='\\computername\kkk';
//首先建立文件目录
if not DirectoryExists(Dest) then
begin
if not CreateDir(Dest) then
begin
MessageDlg('建立目录出现错误！',mtWarning,[mbOK],0);
Exit;
end;
Fdata.pFrom :=PChar(Source);
Fdata.pTo := PChar(Dest);
Fdata.wFunc := FO_COPY ;
Fdata.Wnd := Application.Handle ;
Fdata.lpszProgressTitle := 'Wait';
Fdata.fFlags :=FOF_SIMPLEPROGRESS;
ShFileOperation(FData);
end;
end;

end;

[slley]

同意楼上的。