Wenn Unterverzeichnisse enthalten sind, ist das Haupt-Verzeichniss nicht leer, also ist Dein beschriebener Rückgabewert korrekt.
Man kann diese Funktion erweitern indem man, das muss dann leider sein, noch alle gefundendene Elemente auf sein Attribut abgleicht. (dauert halt länger)
Nur hier im Editor schnell mal was zusammengepopelt.... ungetestet...
Delphi-Quellcode:
function CheckIfFilesInPath(const Path: string): Boolean;
var
SR: TSearchRec;
begin
Result := False;
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
Result := True;
Break;
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
So könnte was draus werden... teste mal und viel glück
