Saber el ultimo archivo de una carpeta

[ingmichel]

Saludos, clolegas, necesito saber cual fue el ultimo archivo guardado en una carpeta desde delphi, gracias de antemano.

[Casimiro Notevi]

¿Tiene algo que ver con "Internet"?

[ingmichel]

No pero la descripcion del foro dice internet y delphi.

Empezado por Casimiro Notevi

¿Tiene algo que ver con "Internet"?

[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

[ingmichel]

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.

Empezado por 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

[ecfisa]

Empezado por ingmichel

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.

Hola ingmichel.

De nada .

Los temas son todos aquellos donde Delphi tiene alguna interacción con internet. Es decir, consultas cuya problemática principal involucre la dupla Delphi / Internet.

Saludos