Fråga : Delphi får Last modified sparar i mapp

Bra behov för day

I att finna en spara som har varit Lastet modified i en mapp. Jag vet inte filenamen, jag vet endast att arkivet och f8orlängningen av file.
Does som någon vet hur man går det kända senast tillbaka sparar i ett arkiv, om jag vet extension.
Regards " klar "

Svar : Delphi får Last modified sparar i mapp

Ska detta gör. Det söker inte i underarkiv
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

fungera FindLastWrittenFile (Dir, sökande: Stränga): Stränga;
Var
 R: TSearchRec;
 LastWrite LastWriteAllFiles: TDateTime;
börja
 Dir: =IncludeTrailingBackslash (Dir);
 LastWriteAllFiles: =0;
 Resultat: = '';
 om FindFirst (Dir+Search, faAnyFile-faDirectory, R) =0 därefter
  repetition
   LastWrite: = FileTimeToDTime (R.FindData.ftLastWriteTime); ;
   om LastWrite>LastWriteAllFiles därefter
    börja
     LastWriteAllFiles: =LastWrite;
     Resultat: =R.Name;
    avsluta;
  till FindNext (R)<> 0;
 FindClose (R); 
avsluta;
Andra lösningar  
 
programming4us programming4us