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?