1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:

function TForm1.Backupunderdir(): boolean;
var str,ftpDir, TargetFile: string;
    a,b,c: integer;
    richtig,result: boolean;
begin
  result:=false;
  SetLength(dirarray_str,0);
  for a := 0 to Listview1.Items.Count-1 do
  begin
    if (Listview1.Items.Item[a].SubItems.IndexOf('DIR')<>-1) then
    begin
      SetLength(dirarray_str,Length(dirarray_str)+1);
      dirarray_str[Length(dirarray_str)-1]:=Listview1.Items.Item[a].Caption;
    end
    else
    begin
      if Listbox4.Items.Count>0 then
        ftpDir:='/'+listbox4.Items.Strings[listbox4.Items.Count-1]+'/'
      else ftpDir:='/';
      TargetFile:=Label17.Caption+Listview1.Items.Item[a].Caption+'.'+Listview1.Items.Item[a].SubItems.strings[0];
      (FtpDownloadFile(server_adresse, benutzername, passwort, 21, ftpDir, Listview1.Items.Item[a].Caption+'.'+Listview1.Items.Item[a].SubItems.strings[0], TargetFile, ProgressBar1));
    end;
  end;
  if Length(dirarray_str)>0 then
  begin
    for c := 0 to Length(dirarray_str)-1 do
    begin
      TargetFile:=Label17.Caption+dirarray_str[c];
      CreateDir(TargetFile);
      //Label17.Caption:=TargetFile;
      Listbox4.Items.Add(dirarray_str[c]);
      ShowMessage(dirarray_str[c]);
      IdFTP1.ChangeDir(dirarray_str[c]);
      Listbox5.Clear;
      IdFTp1.Status(Listbox5.items);
      Listbox1.Items.AddStrings(Listbox5.Items);
      if IdFTP1.connected then
      begin
        Listbox2.Clear;
        Listbox3.Clear;
        Listview1.Clear;
        IdFTP1.list(listbox2.items);
        for b := 0 to Listbox2.Count - 1 do
        begin
          str:=Listbox2.Items.Strings[b];
          for a:=length(str) downto 1  do
          begin
            if (str[a]='.') then
            begin
              richtig:=false;
              break;
            end
            else if (str[a]<>' ') then
            begin
              richtig:=true;
            end;
            if richtig=true then
            begin
              richtig:=false;
              Listbox3.items.add(str);
              break;
            end;
          end;
        end;
        FTPsort();
      end;
      Backupunderdir();
    end;
  end
  else result:=true;
end;                    

1:
2:
3:
4:

// statt
IdFTp1.Status(Listbox5.items);
// einfach
IdFTp1.Status(DeineStringList);