Question : Delphes obtiennent le dossier de Last modified dans la chemise

Le bon besoin du day

I de trouver un dossier qui a été Last modified dans une chemise. Je ne sais pas le nom de fichier, je sais seulement que l'annuaire et la prolongation du file.

Does n'importe qui savent renvoyer le dernier dossier de nom dans un annuaire si je sais l'extension.

Regards class= de

Réponse : Delphes obtiennent le dossier de Last modified dans la chemise

Ceci suffira. Il ne recherche pas dans l'annuaire secondaire

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 :

fonction FindLastWrittenFile (Dir, recherche : Corde) : Corde ; Variété R : TSearchRec ; LastWrite, LastWriteAllFiles : TDateTime ; commencer Dir : =IncludeTrailingBackslash (Dir) ; LastWriteAllFiles : =0 ; Résultat : = '' ; si FindFirst (Dir+Search, faAnyFile-faDirectory, R)=0 alors répétition LastWrite : = FileTimeToDTime (R.FindData.ftLastWriteTime) ; ; si LastWrite>LastWriteAllFiles alors commencer LastWriteAllFiles : =LastWrite ; Résultat : =R.Name ; extrémité ; jusqu'à FindNext (R)<> 0 ; FindClose (R) ; extrémité ;