ok Ich hab schon angefangen
Delphi-Quellcode:
procedure list(dir: string);
var d, all: integer;
dirja: boolean;
begin
form1.IdFTP1.ChangeDir(dir);
form1.IdFTP1.List(form1.ListBox3.Items, '*', false);
for all:=0 to form1.ListBox3.Count-1 do
begin
dirja:= true;
for d:=0 to length(form1.ListBox3.Items[0]) do
begin
if form1.ListBox3.Items[0][d]= '.'
then
begin
form1.ListBox2.AddItem(form1.ListBox3.Items[0], TObject (form1));
form1.ListBox3.Items.Delete(0);
dirja:= false;
end;
end;
if dirja then
begin
list(form1.ListBox3.Items[0]);
form1.ListBox3.Items.Delete(0);
end;
end;
end;
Ich binn eigenlich der meinung das das richtig ist aber irgendwie will es noch nicht so wie ich will.
auserdem brauche ich ja den kompletten pfad zur datei wie mache ich dass?