Gibt es eine Kombination aus ner DirectoryListBox und ner FileListobx ?
Ich weiss das es die Ganzen TShell... sachen gibt aber die funzen nicht mit meinem Source Code
Delphi-Quellcode:
l: TIdFtpListItems;
i: integer;
sl: TStringList;
begin
sl := TStringList.Create;
IdFTP1.Connect;
IdFTP1.ChangeDir('/filesharing/');
IdFTP1.List(sl, '*', false);
l := IdFTP1.DirectoryListing;
for i := l.Count - 1 downto 0 do
if l[i].ItemType = ditDirectory
then sl[i] := l[i].FileName
else sl.Delete(i);
IdFTP1.Disconnect;
FileListBox2.Items.Assign(sl);
Oder hat jemand ne Ahung wie ich das kombinieren kann?
Philipp N.