idFTP Folder Upload

[gsh]

Hab ich mir gerade ausgedacht:

Delphi-Quellcode:

procedure VerzeichnissUploaden(Dir : string; Unterordner: Boolean = true; Filter : string = '*.*');
var
  SEARCH: TSearchRec;
  RES: integer;
begin
  Application.ProcessMessages;
  RES := findfirst(Dir+'\'+Filter,faanyfile-faDirectory,SEARCH);
  try
    while RES = 0 do
      begin
        if (SEARCH.Attr and faDirectory) = 0 then
          begin
            idFtp1.put(Dir + '\' + SEARCH.Name, SEARCH.Name);
            Application.ProcessMessages;
          end;
        RES := findnext(SEARCH);
      end;
  finally
    FindClose(SEARCH);
  end;
  if Unterordner = false then exit;
  RES := findfirst(Dir+'\'+'*.*',faanyfile,SEARCH);
  try
    while RES = 0 do
      begin
        if (SEARCH.Name <> '.') and (SEARCH.Name <> '..') and ((SEARCH.Attr and faDirectory) <> 0) then
        begin
          IdFTP1.ChangeDir();  //für die unterordner müsstes dir noch was überlegen
          DateienSuchen(Dir+'\'+SEARCH.Name, List, Unterordner, Filter);
        end;
        RES := findnext(SEARCH);
      end;
  finally
    findclose(SEARCH);
  end;
end;

Ungetestet

//edit: fehler ausgebessert