枚举指定路径下文件及文件夹复制到指定路径下

最新推荐文章于 2022-10-15 01:53:55 发布

原创最新推荐文章于 2022-10-15 01:53:55 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #function #file

Delphi 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个用于递归复制文件夹的函数实现，包括文件和子目录的完整复制过程。该函数首先检查目标目录是否存在，若不存在则创建之，随后遍历源目录中的所有文件和子目录，并将它们复制到目标位置。

function   DoCopyDir(sDirName,   sToDirName:   String):   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.cFileName;
         if (tfile='.') or   (tfile='..')   then Continue;                                                     //跳过两个目录标识
         if   FindFileData.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY   then
         begin
            t:=sToDirName+'/'+tfile;
            if   not   DirectoryExists(t)   then
               ForceDirectories(t);
            if   sDirName[Length(sDirName)]<>'/'   then
               DoCopyDir(sDirName+'/'+tfile,t)
            else DoCopyDir(sDirName+tfile,sToDirName+tfile);
         end else
         begin
            t:=sToDirName+'/'+tFile;
            Form1.StatusBar1.Panels[0].Text   := t;
            Form1.StatusBar1.Refresh;
            //Frmmain.msgWriter('正在拷贝:     '+t);
            CopyFile(PChar(tfile),PChar(t),false);
            //     FrmMain.Prgb.StepBy(1);
         end;
      until FindNextFile(F.FindHandle,FindFileData)=false;
            FindClose(F);
      end else
      begin
         ChDir(sCurDir);
         result:=false;
         exit;
   end;
   //回到原来的目录下
   ChDir(sCurDir);
   result:=true;
end;