拷贝整个目录及其所含文件的函数是什么？(50分)

拷贝整个目录及其所含文件的函数是什么？

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

TSHFILEOPSTRUCT这个结构在哪个单元中包含？提示报错了！

uses<br>&nbsp; ...., ShellAPI;

shellAPI,filectrl

谢谢！

yczjs：<br>嘿嘿，硬是让我抢走10分，有没有生气啊？！[][]<br>有机会给你不上。