Pergunta : Delphi começ a lima do Last modified no dobrador

Boa necessidade do day

I de encontrar uma lima que fosse Last modified em um dobrador. Eu não sei o nome de arquivo, eu sei somente que o diretório e a extensão do file.

Does qualquer um sabem retornar a lima a mais atrasada do nome em um diretório se eu sei o extension.

Regards class= do

Resposta : Delphi começ a lima do Last modified no dobrador

Isto fará. Não procurara no diretório secundário
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

função FindLastWrittenFile (Dir, busca: Corda): Corda;
Var
 R: TSearchRec;
 LastWrite, LastWriteAllFiles: TDateTime;
começar
 Dir: =IncludeTrailingBackslash (Dir);
 LastWriteAllFiles: =0;
 Resultado: = '';
 se FindFirst (Dir+Search, faAnyFile-faDirectory, R)=0 então
  repetição
   LastWrite: = FileTimeToDTime (R.FindData.ftLastWriteTime); ;
   se LastWrite>LastWriteAllFiles então
    começar
     LastWriteAllFiles: =LastWrite;
     Resultado: =R.Name;
    extremidade;
  até FindNext (R)<> 0;
 FindClose (R); 
extremidade;
Outras soluções  
 
programming4us programming4us