eine FilelistBox abfragen?

[bitsetter]

Zitat von smart:

Wie könnte ich denn feststellen ob zB. im Verzeichnis C:\Test noch Unterverzeichnisse vorhanden sind. DirectoryExists kann ich nicht nehmen, weil man keine Platzhalter verwenden darf. Hat Einer von Euch einen Vorschlag?

Hi,

so in etwa müsste es gehen.

Delphi-Quellcode:

function HasSubDir(Dir: AnsiString): boolean;
var
  SRec: TSearchRec;
begin
  Result:= false;
  if AnsiLastChar(Dir)<> '\' then
    Dir := Dir + '\';
  if FindFirst(Dir + '*', faDirectory, SRec) = 0 then
  begin
    repeat
      Result := (faDirectory and SRec.Attr <> 0) and (SRec.Name <> '.') and (SRec.Name <> '..');
    until (FindNext(SRec) <> 0) or Result;
    FindClose(SRec);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if HasSubDir('C:\Test') then
    ShowMessage('Im Verzeichnis C:\Test noch Unterverzeichnisse vorhanden.');
end;