Ordner prüfen ob er leer ist

[himitsu]

Zitat:

Zitat von Christian Seehase

Delphi-Quellcode:

Result := (FindNext(sr) = 0) and (FindNext(sr) <> 0);

teste dieses z.B. mal an einem Rootverzeichnis wie "C:\" :twisted:

[marabu]

Moin,

nicht Delphi, aber Windows bringt die gesuchte Funktion bereits mit:

Delphi-Quellcode:

const
  shlwapi = 'shlwapi.dll';

function PathIsDirectoryEmpty(pszPath: PAnsiChar): BOOL; stdcall;
    external shlwapi name 'PathIsDirectoryEmptyA';

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  isEmpty: Boolean;
begin
  isEmpty := PathIsDirectoryEmpty(PChar(Edit.Text));
  ShowMessage(BoolToStr(isEmpty, True));
end;

Da auch nicht existierende Verzeichnisse als "nicht leer" ausgewiesen werden, wird man wohl in der Regel zusätzlich SysUtils.DirectoryExists() einsetzen.

Grüße vom marabu

[SaFu]

Also die Lösung vom Klaus01 funktioniert bis jetzt ohne Probleme, gut ich muss dazu sagen das ich dieses noch nicht groß getestet habe aber im groben funzt es.

Ich bin natürlich für verbesserungen offen