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

yangh888 2002-11-29 03:45:48
请教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;
...全文
23 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yangh888 2002-12-01
谢谢大家!
回复
yangh888 2002-11-30
to yang6130:谢谢,但好象不行...

to deverxp:不是复制全部目录,而是复制一个以上的部分目录应该如何处理?
回复
yang6130 2002-11-30
//以下程序在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;
回复
deverxp 2002-11-29
注意,我贴出我站点上的例子中from的设置为,这样才能实现所有子目录的copy
sf.pFrom := 'd:\aaaa\*'

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



回复
lqdmafeng 2002-11-29
学习
回复
yang6130 2002-11-29
StrPCopy( frombuf,'z:\Net_gck'+#0+ 'z:\gcfile'+#0+#0);
回复
deverxp 2002-11-29
http://asp3.6to23.com/dever/delphi/file/File08.asp

欢迎访问我的个人技术站点
http://dever.6to23.com
回复
相关推荐
发帖
Windows SDK/API
创建于2007-08-02

1161

社区成员

Delphi Windows SDK/API
申请成为版主
帖子事件
创建了帖子
2002-11-29 03:45
社区公告
暂无公告