如何在 Delphi 中递归删除空目录

Question

父目录 D:\AAA 有 2 个子空目录 D:\AAA\BB1 和 D:\AAA\BB2 我的要求是如何递归地删除空目录。这是在互联网上找到的两个功能，如下所示： //递归删除空目录

function RemoveEmptyDirectory(path: string) : Boolean;
var
  MySearch: TSearchRec;
  Ended: Boolean;
begin
  if FindFirst(path + '\*.*', faDirectory, MySearch) = 0 then
  begin
    repeat
      if ((MySearch.Attr and faDirectory) = faDirectory) and
        (MySearch.Name[1] <> '.') then
      begin
        if DirectoryIsEmpty(path + '\' + MySearch.Name) then
          TDirectory.Delete(path + '\' + MySearch.Name)
        else
        begin
          RemoveEmptyDirectory(path + '\' + MySearch.Name);
          if DirectoryIsEmpty(path + '\' + MySearch.Name) then
            RemoveEmptyDirectory(path + '\' + MySearch.Name);
        end;
      end;
    until FindNext(MySearch) <> 0;
    FindClose(MySearch);
  end;
end;

//检查目录是否为空

function DirectoryIsEmpty(Directory: string): Boolean;
var
  SR: TSearchRec;
  i: Integer;
begin
  Result := False;
  FindFirst(IncludeTrailingPathDelimiter(Directory) + '*', faAnyFile, SR);
  for i := 1 to 2 do
    if (SR.Name = '.') or (SR.Name = '..') then
      Result := FindNext(SR) <> 0;
  FindClose(SR);
end;

我的问题在这里：首先运行函数RemoveEmptyDirectory会发现D:\AAA不为空，然后运行发送round（递归方式），删除2个子目录D:\AAA\BB1和D:\AAA\BB2后，父目录将变为空目录，回到第一轮放置函数 DirectoryIsEmpty 报告父目录不是空目录！！！！为什么！！！！ windows系统还没有改变目录状态吗？？？

那么，有什么好的建议可以满足我的要求吗

Answer 1

你从不检查 D:\AAA 本身。

最后检查删除即可:

function RemoveEmptyDirectory(path: string) : Boolean;
var
  MySearch: TSearchRec;
  Ended: Boolean;
begin
  if FindFirst(path + '\*.*', faDirectory, MySearch) = 0 then
  begin
    repeat
      if ((MySearch.Attr and faDirectory) = faDirectory) and
        (MySearch.Name[1] <> '.') then
      begin
        if DirectoryIsEmpty(path + '\' + MySearch.Name) then
          TDirectory.Delete(path + '\' + MySearch.Name)
        else
        begin
          RemoveEmptyDirectory(path + '\' + MySearch.Name);
          if DirectoryIsEmpty(path + '\' + MySearch.Name) then
            RemoveEmptyDirectory(path + '\' + MySearch.Name);
        end;
      end;
    until FindNext(MySearch) <> 0;
    FindClose(MySearch);
  end;

  if DirectoryIsEmpty(path) then
    TDirectory.Delete(path);

end;

Answer 2

您可以将TDirectory用作

TDirectory.Delete('D:\AAA', True);

如果需要检查目录是否为空，可以使用TDirectory.GetDirectories() as

Var
  S: string;
begin
  for S in TDirectory.GetDirectories('D:\AAA', '*', TSearchOption.soAllDirectories) do
    begin
      if TDirectory.IsEmpty(S) then
        TDirectory.Delete(S);
    end;
  If TDirectory.IsEmpty('D:\AAA') then
    TDirectory.Delete('D:\AAA');

Answer 3

我认为这简单明了，如果顶级性能不是关键，应该可以做到：

procedure RemoveEmptyDirs;
var
  i,Removed:integer;
  Arr:TStringDynArray;
const
  TargedDir = 'C:\BunchOfDirs\';
begin
  Arr := TDirectory.GetDirectories(TargedDir,'*',TSearchOption.soAllDirectories);
  Repeat
    Removed := 0;
    For i := High(Arr) downto Low(Arr) do begin
      If TDirectory.IsEmpty(Arr[i]) then begin
        TDirectory.Delete(Arr[i]);
        System.Delete(Arr,i,1);
        Inc(Removed);
      end;
    end;
  Until Removed = 0;
end;

如何在 Delphi 中递归删除空目录

How to remove empty directory recursively in Delphi

delphi

directory