Ayuda con mi base de modulo.

[ecfisa]

Hola carlosprotos.

Tomando en cuenta que el último archivo generado será el que tenga la fecha mas reciente de modificación, creo que podrías adaptar la función mencionada en este enlace: Saber el ultimo archivo de una carpeta :

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 + 'csh*.tmp', 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;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  LastFile: PChar;
begin
  LastFile:= PChar(LastModifiedFile('C:\Users\Rodrix\AppData\Local\Tmp'));
  ShowMessage(LastFile);
end;

( No deja de asombrarme la capacidad interpretativa de orodriguezca )

Saludos

[Casimiro Noteví]

Empezado por ecfisa

( No deja de asombrarme la capacidad interpretativa de orodriguezca )

Sin embargo, otros necesitan capacidad expresiva escrita para darse a entender

[orodriguezca]

Empezado por ecfisa

( No deja de asombrarme la capacidad interpretativa de orodriguezca )

Saludos

Hola ecfisa, yo también estoy asombrado ; solo fue un fugaz momento de inspiración.


Saludos,

[carlosprotos]

Gracias ecfisa , esta excelente ,mas bien dime como seria para que me aparezca en el ShowMessage solo el nombre del "cshxxx.tmp" sin la direccion (C:\Users\Rodrix\AppData\Local\Tmp\cshxxx.tmp')

[ecfisa]

Hola carlosprotos.

Usando la función anterior, un ejemplo para obtener: ruta + nombre + extensión, nombre + extensión y el nombre solo:

Código Delphi [-]
var
  FullName, NameAndExt, OnlyName: string;
begin
  FullName:= LastModifiedFile('C:\Users\Rodrix\AppData\Local\Tmp');
  NameAndExt:= ExtractFileName(FullName);
  OnlyName:= ChangeFileExt(NameAndExt, '');
  ShowMessage(FullName + #10 + NameAndExt + #10 + OnlyName);
  ...

Saludos