请帮忙看一下,API目录拷贝问题!(100分)

请问为什么用这些代码会出错？请帮忙看一下，谢谢！如果目标路径只有一层目录就OK，但多层就不行。<br><br>procedure TForm1.Button7Click(Sender: TObject);<br>var<br> &nbsp;fsTemp:SHFILEOPSTRUCT;<br>begin<br> &nbsp;fsTemp.Wnd:=Self.Handle;<br> &nbsp;fsTemp.wFunc:=FO_COPY;<br> &nbsp;fsTemp.fFlags:=FOF_ALLOWUNDO+FOF_NOCONFIRMATION;<br> &nbsp;fsTemp.pFrom:=PChar('d:/pp/users');<br> &nbsp;fsTemp.pTo:=PChar('e:/jinwe/pp');<br> &nbsp;fsTemp.lpszProgressTitle:='拷贝文件';<br> &nbsp;if SHFileOperation(fsTemp)&lt;&gt;0 then<br> &nbsp; &nbsp;ShowMessage('文件复制失败');<br>end;

复制一个文件夹里的所有文件<br>procedure TForm1.Button1Click(Sender: TObject);<br>var<br>F:TShFileOpStruct;<br>begin<br>F.Wnd:=Form1.Handle;<br>F.wFunc:=FO_COPY;<br>F.pFrom:='C:/test/*.*'+#0#0;<br>F.pTo:='D:/test'+#0#0;<br>F.fFlags:=FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;<br>ShFileOperation(F);<br>end;