精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>文件>>Re:谁有对整个复制进行目录的例子

主题:Re:谁有对整个复制进行目录的例子
发信人: delphilxh(先锋)
整理人: soaringbird(2001-10-30 08:06:46), 站内信件
【 在 teleme 的大作中提到:】
:【 在 st97sb 的大作中提到:】
::谁有对整个复制进行目录的例子
::......
:在<delphi5 程序员参考手册>上有一个完整的例子
:也可以参考精华区相关例子进行改造,首先建立一个list,然后对整个目录进行遍历,然后存到list中每个文件和位置,一个一个的拷贝即可
:......
 function CopyDirectory(const Source, Dest: string): boolean; 
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; 



----
██████ 
█┏━━┓█ Delphi先锋网欢迎您!!!!
█┃之先┃█  北京网易Delphi论坛 
█┃印锋┃█ 
█┗━━┛█ 
██████ 

              

[关闭][返回]