• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

在Delphi中实现对目录拷贝、删除和搬移的操作_Delphi

Delphi 搞代码 3年前 (2018-08-09) 225次浏览 已收录 0个评论

笔者在工作中遇到了需要对目录进行拷贝、删除和搬移的需求,Delphi本身提供了一些目录操作函数,但只是针对空目录而言,对目录下带有子目录的情况,更是无能为力。利用Win32 API函数和结构,以及递归的程序设计思想,笔者实现了对任意目录进行拷贝、删除和搬移的功能(分别相当于DOS中的XCopy、DelTree和Move命令)。以下分别给出了实现代码:  

—- 1、拷贝目录  

—- 为了能拷贝目录下带有子目录的情况,先定义一个辅助的拷贝函数,它是递归执行的,直到把目录下的所有文件和子目录都拷贝完。  

—- 1.1拷贝目录的递归辅助函数:DoCopyDir  

function DoCopyDir(sDirName:String;
sToDirName:String):Boolean;

http://www.gaodaima.com/65634.html在Delphi中实现对目录拷贝、删除和搬移的操作_Delphi

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
                      DoCopyDir(sDirName+’/’+tfile,t)
                   else
                      DoCopyDir(sDirName+tfile,sToDirName+tfile);
              end
              else
              begin
                   t:=sToDirName+’/’+tFile;
                   CopyFile(PChar(tfile),PChar(t),True);
              end;
        until FindNextFile(hFindFile,FindFileData)=false;
        FindClose(hFindFile);
   end
   else
   begin
        ChDir(sCurDir);
        result:=false;
        exit;
   end;
   //回到原来的目录下
   ChDir(sCurDir);
   result:=true;
end;

—- 1.2拷贝目录的函数:CopyDir  

function CopyDir(sDirName:String;
sToDirName:string):Boolean;
begin
      if Length(sDirName)< =0 then
exit;
//拷贝…
Result:=DoCopyDir(sDirName,sToDirName);
end;

—- 2、删除目录

—- 删除目录与拷贝目录很类似,但为了能删除位于根目录下的一个空目录,需要在辅助函数中设置一个标志变量,即:如果删除的是空目录,则置bEmptyDir为True,这一句已经用深色框表示了。

—- 2.1删除目录的递归辅助函数:DoRemoveDir

function DoRemoveDir(sDirName:String):Boolean;
var
hFindFile:Cardinal;
tfile:String;
sCurDir:String;
bEmptyDir:Boolean;
FindFileData:WIN32_FIND_DATA;
begin
//如果删除的是空目录,则置bEmptyDir为True
//初始时,bEmptyDir为True
bEmptyDir:=True;
//先保存当前目录
sCurDir:=GetCurrentDir;
SetLength(sCurDir,Length(sCurDir));
ChDir(sDirName);
hFindFile:=FindFirstFile(‘*.*’,FindFileData);
if hFindFile< >INVALID_HANDLE_VALUE then
   begin
        repeat
              tfile:=FindFileData.cFileName;
              if (tfile=’.’) or (tfile=’..’) then
              begin
                 bEmptyDir:=bEmptyDir and True;
                 Continue;
              end;
              //不是空目录,置bEmptyDir为False
              bEmptyDir:=False;
              if FindFileData.dwFileAttributes=
              FILE_ATTRIBUTE_DIRECTORY then
              begin
                   if sDirName[Length(sDirName)]< >’/’ then
                      DoRemoveDir(sDirName+’/’+tfile)
                   else
                      DoRemoveDir(sDirName+tfile);
                   if not RemoveDirectory(PChar(tfile)) then
                      result:=false
                   else
                      result:=true;
              end
              else
              begin
                   if not DeleteFile(PChar(tfile)) then
                      result:=false
                   else
                      result:=true;
              end;
        until FindNextFile(hFindFile,FindFileData)=false;
        FindClose(hFindFile);
   end
   else
   begin
        ChDir(sCurDir);
        result:=false;
        exit;
   end;
   //如果是空目录,则删除该空目录
   if bEmptyDir then
   begin
        //返回上一级目录
        ChDir(‘..’);
        //删除空目录
        RemoveDirectory(PChar(sDirName));
   end;

   //回到原来的目录下
   ChDir(sCurDir);
   result:=true;
end;

—- 2.2删除目录的函数:DeleteDir  

function DeleteDir(sDirName:String):Boolean;
begin
      if Length(sDirName)< =0 then
exit;
//删除…
Result:=DoRemoveDir(sDirName) and RemoveDir(sDirName);
end;

—- 3、移动目录

—- 有了拷贝目录和删除目录的函数,移动目录就变得很简单,只需顺序调用前两个函数即可:

function MoveDir(sDirName:String;
sToDirName:string):Boolean;
begin
if CopyDir(sDirName,sToDirName) then
if RemoveDir(sDirName) then
result:=True
else
result:=false;
end;

欢迎大家阅读《在Delphi中实现对目录拷贝、删除和搬移的操作_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址