频道分类

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

作者:admin 来源: 日期:2020/4/4 15:58:13 人气: 标签:

 
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读取网页重定向下一篇:没有资料