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

[cookieva]

看了很多 还是不知道怎么用
我只需要把一个文件夹复制到另一个文件夹
目标文件夹由变量指定
Todir：string

请问具体怎么实现呢？

[oushengfen]

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;

• 打赏
• 举报

回复 赞

[UltraBejing]

有点难度哦

• 打赏
• 举报

回复 赞

[meiZiNick]

有点难度哦

• 打赏
• 举报

回复 赞

[knowledge_Is_Life]

有问题请先GOOGLE,BAIDU

• 打赏
• 举报

回复 赞