eine FilelistBox abfragen?

[smart]

Hallo Alle!

Kann man Abfragen, ob in eine FilelistBox Verzeichnisse sind oder nicht.

Gruß
Heike

[SirThornberry]

[OT]
Die Filelistbox ist veraltet und sollte nicht mehr verwendet werden (wenn man sicherstellen will das Sie auf zukünftigen Windowsversionen läuft)

[DeddyH]

AFAIK stellt eine FileListBox nur Dateien dar.

[smart]

Zitat von DeddyH:

AFAIK stellt eine FileListBox nur Dateien dar.

Doch, die kann auch Verzeichnisse darstellen. Unter FileType kann man Verzeichnisse angeben. Aber gut wenn die FilelistBox zu alt ist. 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?

Gruß
Heike

[DeddyH]

Mit FindFirst z.B.

[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;