DELPHI中怎么判断一个文件夹是否为空

liyinwei 提供的函数中存在着一个Bug: Result := not b; 中的变量b有可能会未被赋值。

修改并精简如下：

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;

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vxe2yr3jjvvrrr3xj7j.html