Saber el ultimo archivo de una carpeta

[ecfisa]

Hola ingmichel.

No había contestado por que tenía la misma duda que Casimiro ya que en este foro se tratan temas de Delphi en relación a internet.

No mediando internet, una forma de obtener el último archivo modificado en determinada carpeta, es:

Código Delphi [-]
function LastModifiedFile(DirName: string): string;
var
  SR: TSearchRec;
  MaxF, aux: TDateTime;
  MaxN: string;
begin
  DirName:= IncludeTrailingPathDelimiter(DirName);
  MaxF:= 1.00002;
  MaxN:= '';
  if FindFirst(DirName + '*.*', faArchive, SR) = 0 then
  begin
    repeat
      aux := FileDateToDatetime(SR.Time);
      if aux > MaxF then
      begin
        MaxF := aux;
        MaxN := DirName + SR.Name;
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
  Result := MaxN;
end;

Uso (ej.):

Código Delphi [-]
   ShowMessage(LastModifiedFile('C:\UnaCarpeta'));

Saludos