TSearchRec in einer TListBox

[semo]

Zitat:

Irgendwas mit "faDirectory", oder?

genau

Delphi-Quellcode:

    if FindFirst(sPath, faAnyFile, SearchRec) = 0 then
    begin
      repeat
        // handelt es sich um ein Verzeichnis?
        if (SearchRec.Attr and faDirectory) = faDirectory then
        begin
          if (SearchRec.Name <> '.') and
             (SearchRec.Name <> '..') then
            doSomething();
        end;
      until
        FindNext(SearchRec) <> 0;
      FindClose(SearchRec); // wird benötigt um den Speicher wieder freizugeben
    end;

Als kleiner Tip, nutze die TWin32FindData-Struktur, das ganze läuft ein wenig schneller, da direkt mit Windows-Api-Funktionen gearbeitet wird. Die Funktionen der Sysutils setzen ja nur darauf auf.