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

cookieva 2007-10-17 01:16:26

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

请问具体怎么实现呢？

...全文

205 4 打赏收藏举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

knowledge_Is_Life 2008-05-01

打赏
举报

有问题请先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;