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?