Per Indy-FTP gantzen Ordener downlorden?

[marabu]

Hier dein Denkanstoß:

Delphi-Quellcode:

procedure GetFilenames(ftp: TIdFtp; const mask: string; s: TStrings);
var
  i: Integer;
  items: {IdFtpList.}TIdFtpListItems;
begin
  s.BeginUpdate;
  try
    s.Clear;
    FTP.List(nil, mask, True);
    items := FTP.DirectoryListing;
    for i := 0 to Pred(items.Count) do
      if items[i].ItemType = ditFile then
        s.Add(items[i].FileName);
  finally
    s.EndUpdate;
  end;
end;

Getippt und nicht getestet.

Gute Nacht.