Vraag : Delphi krijgt laatste gewijzigd dossier in omslag

Goede day

I behoefte om een dossier te vinden dat het laatst in een omslag is gewijzigd. Ik ken niet filename, ken ik slechts de folder en de uitbreiding van file.

Does iedereen het weet hoe te om het naam recentste dossier in een folder terug te keren als ik extension.

Regards ken

Antwoord : Delphi krijgt laatste gewijzigd dossier in omslag

Dit zal doen. Het zoekt niet in subfolder
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

functie FindLastWrittenFile (Dir, Onderzoek: Koord): Koord;
Var
 R: TSearchRec;
 LastWrite, LastWriteAllFiles: TDateTime;
begin
 Dir: =IncludeTrailingBackslash (Dir);
 LastWriteAllFiles: =0;
 Resultaat: = '';
 als FindFirst (Dir+Search, faAnyFile-faDirectory, R) =0 toen
  herhaal
   LastWrite: = FileTimeToDTime (R.FindData.ftLastWriteTime); ;
   als LastWrite>LastWriteAllFiles toen
    begin
     LastWriteAllFiles: =LastWrite;
     Resultaat: =R.Name;
    eind;
  tot FindNext (R)<> 0;
 FindClose (R); 
eind;
Andere oplossingen  
 
programming4us programming4us