Hallo

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

markieren

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.

markieren

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?

Schau doch einfach mal nach, was diese DirectoryListing-Items ausser Filename noch so anbieten.
Evtl. waren die Indy-Leute ja schlau und haben noch ein paar mehr Informationen reingepackt.

:-/ Vermutlich waren die schon schlau

Also wenn du Data meinst
IdFtp1.DirectoryListing.Items[I].Data Müsste ich da ja noch irgendwie den Namen raus filtern.


Und ansonsten habe ich noch versucht mit
idftp1.DirectoryListing.Items[i].ItemType=(ditDirectory)
Weis aber einerseits nicht genau was das macht und andererseits schreibe ich es anscheinend auch falsch.

markieren

Code:

[DCC Error] TabbedTemplate.pas(258): E2003 Undeclared identifier: 'ditDirectory'

Oder suche ich noch bei den falschen Punkten?

Hast Du IdFTPList eingebunden?

idftp1.DirectoryListing.Items[i].ItemType=IdFTPList.ditDirectory;

Jupp, wenn der Compiler es nicht findet, dann gibt es zwei Möglichkeiten:

- die Unit ist nicht eingebunden
- es befindet sich in einem anderem Scope/Namespace

Letzteres tritt bei Enums z.B. auf, wenn {$SCOPEDENUM} aktiv ist und man dann auch den Typenbezeichner mit angeben muß.

Achsoooooo. Danke euch allen.

Dachte list sei schon mit der idftp Komponente dabei... Jetzt geht's