如何在局域网中“ 电脑A” 复制一目录下的所有文件和所有子目录到 “电脑B” ？(30分)

如何在局域网中“ 电脑A” 复制一目录下的所有文件和所有子目录到 “电脑B” ？

在网上邻居里找到然后 全选，复制，粘贴。

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;

>>

接受答案了.