怎样进行目录拷贝(50分)

怎样将目录从一个地方完整的拷贝到另一个地方。<br>包括目录中的子目录。

WINEXECUTE('XCOPY'....)不就可以了？<br>当然SHELLEXECUTE，CREATEPROCESS也可以

要是有变态把xcopy给煽了怎麽办？

自己带一个没有DOS版本限制的去：）

敬爱的CJ:<br>&nbsp; 能举个例子吗，谢谢！<br>&nbsp; 这50分将是你的了。

还是自己写一段程序保险，不就是递归地进入子目录Copy吗？

tqz你的竹叶干吗老不更新，是不是老上大富翁没有时间了？

我基本上已经把大富翁当作我自己的竹叶了

实际上TQZ的方法好<br>我的意思就是直接运行XCOPY<br>

TO CJ: 永远都不应该这么想，毕竟Windows与Unix不同。<br>用递归自己写还是比较好一些。

这个问题也是一早说过了，为什么总是不喜欢看看已答的问题集呢？<br>既然如此为了得分，算了再来帖一次吧。<br>procdure button1click(sender:tobject);<br>var<br>&nbsp; &nbsp;lpFileOp: TSHFileOpStruct;<br>begin<br>&nbsp; &nbsp;with lpFileOp do<br>&nbsp; &nbsp; &nbsp;begin<br>&nbsp; &nbsp; &nbsp;Wnd := Self.Handle;<br>&nbsp; &nbsp; &nbsp;wFunc := FO_MOVE;<br>&nbsp; &nbsp; &nbsp;pFrom := pchar('C:/formdir');<br>&nbsp; &nbsp; &nbsp;pTo := pchar('c:/todir');<br>&nbsp; &nbsp; &nbsp;fFlags := FOF_ALLOWUNDO;<br>&nbsp; &nbsp; &nbsp;hNameMappings := nil;<br>&nbsp; &nbsp; &nbsp;lpszProgressTitle := nil;<br>&nbsp; &nbsp; &nbsp;fAnyOperationsAborted := True;<br>&nbsp; &nbsp; &nbsp;end;<br><br>if SHFileOperation(lpFileOp) &lt;&gt; 0 then<br>&nbsp; &nbsp;ShowMessage('删除失败');<br>end;<br><br>你还可以参见已答的这条问题：&lt;a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=92662"&gt;点这里&lt;/a&gt;，<br>里面有我和其它几个朋友对类似问题的详细讨论。

对了忘记一点，<br><br>1、不要忘记在User字段中添加 ShellAPI 哟！<br>2、上面那个写错了，wfunc应该是FO_COPY.<br><br>包你整个目录复制过去。<br><br>顺说，自己写递归一个一个COPY也可以，不过就烦了，这个东西还能UNDO！

接受答案了。

接受答案了。