Idftp nur Ordner auflisten

[gee21]

Hallo

Ich nutze folgende Zeile um alle Dateien (ink. Ordner) aufzulisten

Delphi-Quellcode:

    IdFTP1.List();
   for I := 0 to IdFtp1.DirectoryListing.Count - 1 do
 ListBox2.Items.Add(IdFtp1.DirectoryListing.Items[I].FileName);

Jetzt wollte ich das so abändern dass nur Ordner angezeigt werden. Also habe ich folgendes versucht.

Delphi-Quellcode:

   IdFTP1.List();
   for I := 0 to IdFtp1.DirectoryListing.Count - 1 do


 if IdFtp1.DirectoryListing.Items[I].FileName[Length(IdFtp1.DirectoryListing.Items[I].FileName[i])-2]='.' =false then  ListBox2.Items.Add(IdFtp1.DirectoryListing.Items[I].FileName);

Aber leider kommen immer noch alle Dateien / Ordner in die Listbox. Weiss jemand was ich falsch mache?