一个删除路径下所有文件的函数

最新推荐文章于 2024-11-06 11:44:38 发布

转载最新推荐文章于 2024-11-06 11:44:38 发布 · 610 阅读

标签

#search #integer #function #string

收录于

本文介绍了一个使用递归方法删除文件夹及其所有子文件和子文件夹的函数。该函数首先检查当前路径是否以斜杠结尾，并确保每个子项都被正确处理。通过调用findFirst和FindNext来遍历指定路径下的所有文件和文件夹。

function TForm2.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;