如何復制一個目錄下所有子文件夾和子文件(100分)

如何復制一個目錄下所有子文件夾和子文件

procedure CopyDir(const Sour, Dest: string);<br>&nbsp; var<br>&nbsp; &nbsp; FileOp: TSHFileOpStruct;<br>begin<br>&nbsp; with FileOp do<br>&nbsp; begin<br>&nbsp; &nbsp; Wnd := 0;<br>&nbsp; &nbsp; wFunc := FO_COPY;<br>&nbsp; &nbsp; pFrom := PChar(Sour);<br>&nbsp; &nbsp; pTo := PChar(Dest);<br>&nbsp; &nbsp; fFlags := FOF_Silent + FOF_NoConfirmation;<br>&nbsp; &nbsp; fAnyOperationsAborted := False;<br>&nbsp; &nbsp; hNameMappings := nil;<br>&nbsp; &nbsp; lpszProgressTitle := nil<br>&nbsp; end;<br>&nbsp; SHFileOperation(FileOpend;

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1061138<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=397009<br>搜索，很多的。

能改成bcb的嗎

<br>我要拷贝里，会提示我要不要覆盖，能不能不提示呢

多人接受答案了。