delphi 删除指定文件夹下所有文件
2012-05-23 17:18
113 查看
function TForm1.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;
相关文章推荐
- Delphi删除指定文件夹及文件夹下所有子目录与文件
- 转:delphi 删除指定文件夹下所有文件
- Python 批量删除文件夹下面指定类型的所有文件
- 删除指定文件夹下的所有指定类型的文件
- Android 删除SD卡一个指定文件夹和其下的所有文件
- 删除指定文件夹下所有文件(包括子文件夹及子文件夹下的所有文件)
- qt删除指定文件夹下所有内容,包括文件夹、文件
- pb删除指定文件夹下所有文件
- 删除指定时间前目录下生成的所有文件、文件夹
- php删除指定文件/获取文件夹的所有文件名
- java 删除指定文件夹 以及文件下下面的所有文件
- perl 循环删除指定文件夹下所有满足条件的文件,不包含文件夹
- winform 删除,清空指定文件夹上的所有文件或文件夹
- 删除指定目录下的所有文件和文件夹
- 复制和删除指定文件夹下面的所有的文件文件夹
- 删除指定文件夹下的所有文件夹和文件
- C# 删除指定目录下的 所有指定文件、文件夹
- 用命令行删除指定文件夹下面的所有文件(如果里面没有子文件夹)
- linux 删除所有文件夹下指定文件名的文件
- Python_删除/创建指定目录及其下所有子目录的文件,该文件记录当前文件夹的内容