Frage : Delphi erhalten Last modifiedakte im Faltblatt

Gute day

I Notwendigkeit, eine Akte zu finden, die Last modified in einem Faltblatt gewesen ist. Ich kenne nicht den Dateinamen, weiß ich nur, dass das Verzeichnis und die Verlängerung des file.

Does jedermann die späteste Akte des Namens in einem Verzeichnis zurückbringen können, wenn ich das extension.

Regards kenne

Antwort : Delphi erhalten Last modifiedakte im Faltblatt

Dieses tut. Es sucht nicht im Vorverzeichnis
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Funktion FindLastWrittenFile (Dir, Suche: Schnur): Schnur;
Var
 R: TSearchRec;
 LastWrite, LastWriteAllFiles: TDateTime;
anfangen
 Dir: =IncludeTrailingBackslash (Dir);
 LastWriteAllFiles: =0;
 Resultat: = '';
 wenn FindFirst (Dir+Search, faAnyFile-faDirectory, R)=0 dann
  Wiederholung
   LastWrite: = FileTimeToDTime (R.FindData.ftLastWriteTime); ;
   wenn LastWrite>LastWriteAllFiles dann
    anfangen
     LastWriteAllFiles: =LastWrite;
     Resultat: =R.Name;
    Ende;
  bis FindNext (R)<> 0;
 FindClose (R); 
Ende;
Weitere Lösungen  
 
programming4us programming4us