J'essaie de trouver le fichier le plus ancien dans un dossier (sous NTFS). Pour faire des tests je crée 100 fichiers comme cela:
puis je parcours ces fichiers avec FindFirst/FindNext(search_rec) et je compare les dates de création search_rec.FindData.ftCreationTime avec la fonction CompareFileTime.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 for index_file := 1 to 100 do begin filename := buildFileName(index_file); AssignFile(f, Fpath + filename); rewrite(f); Writeln(f, 'bla bla bla'); CloseFile(f); //Sleep(1) ; end;
J'ai la surprise de constater que plusieurs de ces dates sont identiques. De même quand j'insère un Sleep de quelques millisecondes. A partir de 10 millisecondes, les dates de création sont toutes différentes.
Quelqu'un aurait-il une explication ?
Bruno
Partager