Question

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

Answer 1

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;