Delphi 删除目录

---- 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;