Questione : Delfi ottiene la lima di Last modified in dispositivo di piegatura

Buona necessità del day

I di trovare una lima che è stata Last modified in un dispositivo di piegatura. Non conosco il nome di schedario, so soltanto che l'indice e l'estensione del file.

Does chiunque sanno restituire l'ultima lima di nome in un indice se conosco il extension.

Regards class= del

Risposta : Delfi ottiene la lima di Last modified in dispositivo di piegatura

Ciò basterà. Non cerca nell'indice secondario
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

funzione FindLastWrittenFile (Dir, ricerca: Stringa): Stringa;
Varietà
 R: TSearchRec;
 LastWrite, LastWriteAllFiles: TDateTime;
cominciare
 Dir: =IncludeTrailingBackslash (Dir);
 LastWriteAllFiles: =0;
 Risultato: = '';
 se FindFirst (Dir+Search, faAnyFile-faDirectory, R)=0 allora
  ripetizione
   LastWrite: = FileTimeToDTime (R.FindData.ftLastWriteTime); ;
   se LastWrite>LastWriteAllFiles allora
    cominciare
     LastWriteAllFiles: =LastWrite;
     Risultato: =R.Name;
    estremità;
  fino a FindNext (R)<> 0;
 FindClose (R); 
estremità;
Altre soluzioni  
 
programming4us programming4us