在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
---- 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; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论