删除文件代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】删除文件

作者:dezai / 发布于2014/2/26/ 911

unction TMainForm.DeleteDirectory(NowPath: string): Boolean; //删除整个目录
 var
 search: TSearchRec;
 ret: integer;
 key: string;
 begin
 if NowPath[Length(NowPath)] <> '/' then
 NowPath := NowPath + '/';
 key := Nowpath + '*.*';
 ret := findFirst(key, faanyfile, search);
 while ret = 0 do begin
 if ((search.Attr and fadirectory) = faDirectory)
 then begin
 if (Search.Name <> '.') and (Search.name <> '..') then
 DeleteDirectory(NowPath + Search.name);
 end else begin
 if ((search.attr and fadirectory) <> fadirectory) then begin
 deletefile(NowPath + search.name);
 end;
 end;
 ret := FindNext(search);
 end;
 findClose(search);
 removedir(NowPath);//这个是删除本文件夹的
 result := True;
 end;

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　删除文件　

同语言下

可能有用的

dezai贡献的其它代码(1065)