Wenn es um den einfachsten Weg geht, hier mal noch ein Beispiel der Verwendung von FindFirst etc., das ich gerade bei mir ausgeschnitten habe:
Delphi-Quellcode:
ec := FindFirst(APath, faAnyFile, sr);
while ec=0
do begin
if (sr.
Name<>'
.')
and (sr.
Name<>'
..')
then begin
sFilename := ExtractFilePath(APath)+sr.
Name;
if (sr.Attr
and faDirectory)=0
then FireFileFoundEvent(sFilename,sr)
else FireFolderFoundEvent(sFilename,sr);
end;
ec := FindNext(sr);
end;
SysUtils.FindClose(sr);
Schau einfach auf Zeile 5: das TSearchRec, das FindFirst/FindNext füllen (hier so einfallslos "sr" benannt), beinhaltet ein Feld Attr, in dem Du nur prüfen musst, ob faDirectory dort gesetzt ist oder nicht.