△△△ 如何判断指定目录下是否含有其它文件夹或文件？ △△△

Question

如何判断指定目录下是否含有其它文件夹或文件？如目录dir:='D:\files\' 判断该文件夹是否为空，如包含其它文件夹或文件都不能算为空。

Answer 1

自己找到了，来取分吧！
function IsEmptyDir(sDir: String): Boolean;
var
  sr: TsearchRec;
begin
  Result := True;
  if Copy(sDir, Length(sDir) - 1, 1) <> '\' then sDir := sDir + '\';
  if FindFirst(sDir + '*.*', faAnyFile, sr) = 0 then
    repeat
      if (sr.Name <> '.') and (sr.Name <> '..') then
      begin
        Result := False;
        break;
      end;
    until FindNext(sr) <> 0;
  FindClose(sr);
end;