Problème de précision sur date de création des fichiers
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:
Code:
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; |
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.
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
