delphi拷贝整个目录(包括子目录)

本文整理自网络，侵删。

 
function CopyDirAll(sDirName:String;sToDirName:String):Boolean;
var
   hFindFile:Cardinal;      //拷贝整个目录(包括子目录)
   t,tfile:String; 
   sCurDir:String[255];
   FindFileData:WIN32_FIND_DATA; 
begin
   //先保存当前目录 
   sCurDir:=GetCurrentDir;
   ChDir(sDirName);
   hFindFile:=FindFirstFile('*.*',FindFileData);
   if hFindFile<>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
            CopyDirAll(sDirName+'\'+tfile,t)
         else
            CopyDirAll(sDirName+tfile,sToDirName+tfile);
      end
      else
      begin
           t:=sToDirName+'\'+tFile;
           CopyFile(PChar(tfile),PChar(t),True);
      end;
    until FindNextFile(hFindFile,FindFileData)=false;
    Windows.FindClose(hFindFile);
   end
   else
   begin
        ChDir(sCurDir);
        result:=false;
        exit;
   end;
   //回到原来的目录下
   ChDir(sCurDir);
   result:=true;
end;

 

相关阅读 >>

Delphi idhttp登录网站教程代码

Delphi 为数字补充前缀0

Delphi comparestr 函数

Delphi xe可执行文件上启用dep和aslr

Delphi webbrowser控件里编辑网页

Delphi中accesss实现树形结构查询系统

Delphi pointer 转成string

Delphi jpg和bitmap互转转换的方法

Delphi的dll中获取文件路径

Delphi tbutton.onclick 匿名函数用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi拷贝整个目录(包括子目录)