1,184
社区成员
发帖
与我相关
我的任务
分享请教SHFileOpStruct和SHFileOperation，复制文件夹的问题
看了很多 还是不知道怎么用
我只需要把一个文件夹复制到另一个文件夹
目标文件夹由变量指定
Todir：string
请问具体怎么实现呢？
我只需要把一个文件夹复制到另一个文件夹
目标文件夹由变量指定
Todir：string
请问具体怎么实现呢？
...全文
请发表友善的回复…
发表回复
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;
///复制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;
