Dateiliste mit TIdFTP

[MiKaEr]

ich habe ein kleines problem beim erstellen einer verzeichnisstruktur mit der TIdFTP-Komponente.
folgenden code verwende ich.

Delphi-Quellcode:

var
 AFiles, sl: TStrings;
 i: Integer;
 sFN: string;
begin
 IdFTP1.Host := 'xxx';
 IdFTP1.Username := 'xxx';
 IdFTP1.Password := 'xxx';
 IdFTP1.Connect;

 AFiles := TStringList.Create;
 sl := TStringList.Create;
 try
  IdFTP1.List(AFiles, '/_test/*', True);

  for i := 0 to IdFTP1.DirectoryListing.Count - 1 do
   begin
    sFN := Trim(IdFTP1.DirectoryListing.Items[i].FileName);

    if (sFN <> '.') and (sFN <> '..') and (sFN <> '') then
     sl.Add(sFN);
   end;

  showmessage(sl.Text);
 finally
  IdFTP1.Disconnect;
  AFiles.Free;
  sl.Free;
 end;

im verzeichnis "test" befindet sich
- eine datei namens "1.txt"
- ein verzeichnis namens "2"
- - in diesem verzeichnis eine weitere datei namens "2.txt".


mein resultat (showmessage) sieht aber so aus:

Zitat:

---
/test/1.txt
2.txt
---

eigentlich müsste es aber heißen

Zitat:

---
/test/1.txt
/test/2/2.txt
---

wo ist das problem?