FTP und SetModTime

[Harry Stahl]

Ich möchte nach einem FTP-Upload einer Datei auf den Server (per FTP.Put) gleich danach per FTP.SetModTime die Datei auf dem Server mit dem Datum und Uhrzeit der lokalen Datei versehen.

Erhalte aber die Fehlermeldung "EIDReplyRFCError", "No such file or directory".

Was mache ich da falsch?

Delphi-Quellcode:

var
  S, fn: String;
  ALocalTime: TDateTime;
begin
  ...

  if not IdFTP1.Connected then begin
    IdFTP1.Connect;
    IdFTP1.ChangeDir(edCurDir.text);
  end;  

  ...

  ALocalTime := GetFileDateTime(S); // S enthält PFad und Dateiname der lokalen Datei
  fn := ExtractFileName(s);
  IdFTP1.put(s, fn); // Das funktioniert
  idFTP1.SetModTime(fn, ALocalTime);   // hier krachts