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

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

请问具体怎么实现呢?
...全文
157 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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;

1,183

社区成员

发帖
与我相关
我的任务
社区描述
Delphi Windows SDK/API
社区管理员
  • Windows SDK/API社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧