Hi Supermuckl.
Du hast dir die ganze Sache ein bisschen zu kompliziert vorgestellt.
Das geht eigentlich ganz einfach. Du musst nur pro datei/Verzeichnis ein Objekt vom Typ TIdFTPListItem in ADirectoryListing hinzufügen und dieses dann mit den entsprechenden Daten füllen (Name,Größe,etc.).
Du musst da nix mit parse oder so machen.
Delphi-Quellcode:
procedure TForm1.serverListDirectory(ASender: TIdFTPServerThread;
const APath: String; ADirectoryListing: TIdFTPListItems);
var
d : TIdFTPListItem;
begin
d := ADirectoryListing.Add;
d.Size := 0;
d.ModifiedDate := now;
d.FileName := 'Verz';
d.ItemType := ditDirectory;
end;
Ich hoffe geholfen zu haben.