Delphi文件夹复制

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

jing12

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

阅读量1.7k

点赞数

CC 4.0 BY-SA版权

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

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

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

 
 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
      tfile:=FindFileData