怎样删除一个含有文件与子文件的文件夹。

zhyanger 2003-01-23 05:09:42

怎样删除一个包含文件与子文件的文件夹

...全文

85 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhyanger 2003-01-25

打赏
举报

还有什莫好方法

mrfanghansheng 2003-01-23

打赏
举报

肯定要递归的。

huangrenguang 2003-01-23

打赏
举报

我只写了一层，那自己使用
function IsDirNotation(ADirName: String): Boolean;
begin
Result := (ADirName = '.') or (ADirName = '..');
end;
去遍历吧。

{***************************************************************
* 方法名 : g_fun_DeleteDirectoy
* 编写目的 : 删除目录
* 作者 : 黄仁光
* 参数 : MapDir:要删除的目录
* 结果 : None
* 编写日期 :2002年12月17日
****************************************************************}
procedure g_fun_DeleteDirectoy(MapDir:String);
var
sr:TSearchRec;
ReturnResult:Integer;
FileName:String;
Path:String;
begin
Path := MapDir+'\*.*';
ReturnResult := -1;
ReturnResult := FindFirst(Path,faAnyFile,sr);
try
while ReturnResult = 0 do
begin
FileName := MapDir+'\'+sr.Name;
if FileExists(FileName) then
begin
DeleteFile(FileName);
end;
ReturnResult := FindNext(sr);
end;
finally
FindClose(sr);
RemoveDirectory(PChar(MapDir+'\'));
end;
end;

richall 2003-01-23