Letztes JPEG in einem Ordner erkennen und kopieren

[SirThornberry]

@Matze: Warum mit "GetFileDateTime" die Zeit ermitteln? Die Zeit ist doch im Record der von FindFirst/FindNext befüllt wird enthalten.

Mit folgender Funktion kann man die zuletzt erstellte Datei ermitteln:

Delphi-Quellcode:

function GetNewestFile(ADir: String): String;
var LSearchRec: TSearchRec;
    LDate     : Int64;
    LGiveback : String;
begin
  ADir := IncludeTrailingBackslash(ADir);
  LGiveback := '';
  if (FindFirst(ADir + '*', faAnyFile, LSearchRec) = 0) then
  begin
    LDate := 0;
    repeat
      if LSearchRec.Attr and faDirectory <> faDirectory then
      begin
        if (Int64(LSearchRec.FindData.ftCreationTime) > LDate) then
        begin
          LDate := Int64(LSearchRec.FindData.ftCreationTime);
          LGiveback := ADir + LSearchRec.Name;
        end;
      end;
    until FindNext(LSearchRec) <> 0;
    FindClose(LSearchRec);
  end;
  result := LGiveback;
end;