Ver Mensaje Individual
  #5  
Antiguo 21-02-2014
ingmichel ingmichel is offline
Miembro
 
Registrado: jun 2007
Posts: 137
Reputación: 17
ingmichel Va por buen camino
Solucionado

Muchisimas gracias ecfisa, tu funcion ha solucionado mi problema era justo lo que necesitaba, una pregunta mas, para evitar inconvenientes, podrian decirme cual es el tema de delphi unicamente en este foro ?
saludos y bendiciones.

Cita:
Empezado por ecfisa Ver Mensaje
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
Responder Con Cita