upload local auf einem server

[mr2]

Hallo,

ändere einfach den Beispielaufruf aus meinem ersten Posting wie folgt ab:

Delphi-Quellcode:

var
  Files, Errors: TStringList;
  i: Integer;
begin
  Errors := nil;
  Files := TStringList.Create;
  try
    Errors := TStringList.Create;
    ReadFileNames(Files, 'C:\Daten\', soNone, '*.*', True, False);
    IdFTP.Host := 'ftp.heise.de';
    IdFTP.User := 'Knut';
    IdFTP.Password := 'geheim';
    IdFTP.Connect;
    for i:=0 to Pred(Files.Count) do
      try
        IdFTP.Put(Files[i], ExtractFileName(Files[i]));
      except
        Errors.Add(Files[i]);
      end;
    for i:=0 to Pred(Errors.Count) do
      try
        IdFTP.Put(Errors[i], ExtractFileName(Errors[i]));
      except
        on E: Exception do Application.HandleException(E);
      end;
  finally
    FreeAndNil(Files);
    FreeAndNil(Errors);
    IdFTP.Disconnect;
  end;
end;