Delphi文件夹复制

最新推荐文章于 2023-12-29 10:11:33 发布

jing12

最新推荐文章于 2023-12-29 10:11:33 发布

阅读量1.6k

点赞数

分类专栏： Delphi技术专题文章标签： delphi integer 报表 function string file

本文链接：https://blog.csdn.net/jing12/article/details/3227907

版权

该博客介绍了一个用Delphi编写的Function `DoCopyDir`，用于递归复制整个文件夹及其内容到目标文件夹。如果目标文件夹不存在，函数会创建它。在复制过程中，如果目标文件已存在，根据`flag`参数决定是否覆盖。同时提到了另一个函数`Copy_Dir`，用于执行文件的复制或删除操作。在实际测试中，发现覆盖拷贝时，某些类型的文件（如报表文件）可能无法成功覆盖。

摘要由CSDN通过智能技术生成

 
 Function　DoCopyDir(sDirName:String;sToDirName:String;flag:boolean):Boolean;
var
  F: TSearchRec;
  //hFindFile:Cardinal; 
  t,tfile:String;
  sCurDir:String[255]; 
  FindFileData:WIN32_FIND_DATA;
begin
 //先保存当前目录  
  sCurDir:=GetCurrentDir;
  ChDir(sDirName);
  F.FindHandle:=FindFirstFile('*.*',FindFileData);
  if F.FindHandle<>INVALID_HANDLE_VALUE then
  begin
    if not DirectoryExists(sToDirName) then //如果目录不存在 
      ForceDirectories(sToDirName); //强迫建立目录 
    repeat