请教SHFileOpStruct和SHFileOperation,复制文件夹的问题

cookieva 2007-10-17 01:16:26
看了很多 还是不知道怎么用
我只需要把一个文件夹复制到另一个文件夹
目标文件夹由变量指定
Todir:string

请问具体怎么实现呢?
...全文
65 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
有问题请先GOOGLE,BAIDU
回复
meiZiNick 2008-05-01
有点难度哦
回复
UltraBejing 2008-04-30
有点难度哦
回复
oushengfen 2007-10-23
function TData1.CopyDirectory(const Source, Dest: string): boolean;
///复制Source整个目录到DEST目录,如果Dest不存在,自动建立,如果DEST存在,那么Source将作为Dest的子目录!
//例如如果要复制E:\Temp整个目录到E:\那么代码为: copydirectory('e:\temp','e:\');
///如果要复制E:\Temp到E:\Test目录下面,那么代码为:CopyDirecotry('E:\Temp','E:\TEST');
var
fo: TSHFILEOPSTRUCT;
begin
FillChar(fo, SizeOf(fo), 0);
with fo do
begin
Wnd := 0;
wFunc := FO_COPY;
pFrom := PChar(source+#0);
pTo := PChar(Dest+#0);
fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR ;
end;
Result := (SHFileOperation(fo) = 0);
end;
回复
相关推荐
发帖
Windows SDK/API
创建于2007-08-02

1162

社区成员

Delphi Windows SDK/API
申请成为版主
帖子事件
创建了帖子
2007-10-17 01:16
社区公告
暂无公告