请教ShFileOperation如何操作多个目录？

[yangh888]

请教ShFileOperation如何操作多个目录？谢谢！
procedure TForm1.Button9Click(Sender: TObject);
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
Begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf,'z:\Net_gck' 'z:\gcfile');//此处多个目录应该如何处理？
StrPCopy( tobuf, edit4.Text+'\'+'clk');
With OpStruc DO Begin
Wnd:= Handle;
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;

end;
if ShFileOperation( OpStruc )=0 then
showmessage('材料库备份成功！')
else
showmessage('材料库备份失败！')
end;

[deverxp]

http://asp3.6to23.com/dever/delphi/file/File08.asp

欢迎访问我的个人技术站点
http://dever.6to23.com

[yang6130]

StrPCopy( frombuf,'z:\Net_gck'+#0+ 'z:\gcfile'+#0+#0);

[lqdmafeng]

学习

[deverxp]

注意，我贴出我站点上的例子中from的设置为，这样才能实现所有子目录的copy
sf.pFrom := 'd:\aaaa\*'

而并非(他们都会出错)
sf.pFrom := 'd:\aaaa\*.*'
或者
sf.pFrom := 'd:\aaaa\';

[yang6130]

//以下程序在D6+Win98下调试通过
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..MAX_PATH] of Char;
Begin
FillChar(OpStruc,sizeof(TSHFileOpStruct),#0);
FillChar( frombuf, Sizeof(frombuf), #0 );
FillChar( tobuf, Sizeof(tobuf), #0 );
// StrPCopy( frombuf,'C:\temp\temp1'+#0+'C:\temp\temp2'+#0+#0);//error here
StrPCopy( tobuf, 'C:\music'+#0);
With OpStruc DO Begin
Wnd:= 0;
wFunc:= FO_COPY;
// pFrom:= @frombuf;
pFrom:=PChar('C:\temp\temp1'+#0+'C:\temp\temp2'+#0+#0);//modify here
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR or FOF_ALLOWUNDO;
fAnyOperationsAborted:= False;
hNameMappings:= Nil;
lpszProgressTitle:= Nil;

end;
if ShFileOperation( OpStruc )=0 then
showmessage('材料库备份成功！')
else
showmessage('材料库备份失败！')
end;

[yangh888]

to yang6130:谢谢，但好象不行...

to deverxp:不是复制全部目录，而是复制一个以上的部分目录应该如何处理？

[yangh888]

谢谢大家！