Cuestión : Delphi consigue el archivo del Last modified en carpeta

Buena necesidad del day

I de encontrar un archivo que ha sido Last modified en una carpeta. No sé el nombre de fichero, sé solamente que el directorio y la extensión del file.

Does cualquier persona saben volver el último archivo del nombre de un directorio si sé el extension.

Regards class= del

Respuesta : Delphi consigue el archivo del Last modified en carpeta

Esto hará. No busca en directorio secundario
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

función FindLastWrittenFile (Dir, búsqueda: Secuencia): Secuencia;
Var
 R: TSearchRec;
 LastWrite, LastWriteAllFiles: TDateTime;
comenzar
 Dir: =IncludeTrailingBackslash (Dir);
 LastWriteAllFiles: =0;
 Resultado: = '';
 si FindFirst (Dir+Search, faAnyFile-faDirectory, R)=0 entonces
  repetición
   LastWrite: = FileTimeToDTime (R.FindData.ftLastWriteTime); ;
   si LastWrite>LastWriteAllFiles entonces
    comenzar
     LastWriteAllFiles: =LastWrite;
     Resultado: =R.Name;
    extremo;
  hasta FindNext (R)<> 0;
 FindClose (R); 
extremo;
Otras soluciones  
 
programming4us programming4us