récupération des dates d'un fichier

Salut

J'ai besoin de récupérer la date de modification de fichiers afin de les comparer. J'utilise la fonction présentée dans la faq, mais j'obtiens des résulats aberrants du genre dernière modification en 1728 ! Et ces résultats ne sont même pas fixe. Pour un même fichier (modifié 10 min auparavant), la première interrogation me rend le jour et la date exacte, mais ni l'année ni l'heure correctes. Les interrogations suivantes (dans la meme exécution du programme) renvoient des valeurs totalement différentes et entièrement fausses !

Ce bug dit-il quelque chose à quelqu'un ?

Au passage, mon horloge système est bien réglée.

bonjour
Peux-tu mettre en ligne le bout de code que tu utilise?
Cordialement

J'utilise la fonction présentée dans la Faq, à savoir :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

function TFSynchro.GetFileTimes(const FileName: string; var Created: TDateTime; var Accessed: TDateTime; var Modified: TDateTime): Boolean; var h: THandle; Info1, Info2, Info3: TFileTime; SysTimeStruct: SYSTEMTIME; TimeZoneInfo: TTimeZoneInformation; Bias: Double; begin Result := False; Bias := 0; h := FileOpen(FileName, fmOpenRead or fmShareDenyNone); if h > 0 then begin try if GetTimeZoneInformation(TimeZoneInfo) <> $FFFFFFFF then Bias := TimeZoneInfo.Bias / 1440; // 60x24 GetFileTime(h, @Info1, @Info2, @Info3); if FileTimeToSystemTime(Info1, SysTimeStruct) then Created := SystemTimeToDateTime(SysTimeStruct) - Bias; if FileTimeToSystemTime(Info2, SysTimeStruct) then Accessed := SystemTimeToDateTime(SysTimeStruct) - Bias; if FileTimeToSystemTime(Info3, SysTimeStruct) then Modified := SystemTimeToDateTime(SysTimeStruct) - Bias; Result := True; finally FileClose(h); end; end; end;

---

Et je l'utilise comme ça:

Code:

---

1 2 3 4 5

var dateCreate, dateAcces, dateModif :TDateTime; ... if GetFileTimes(profil.dst+'\'+profil.fics[i],dateCreate, dateAcces, DateModif) then showmessage(FormatDateTime('"Fichier '+profil.fics[i]+' modifié le " dd/mm/yyyy" à "hh:ss', datemodif))

---

profil.dst est le chemin du fichier et profil.fics[i] un élément d'une TStringList qui contient le nom du fichier avec son extension. Ces variables sont correctes à l'exécution.

Personne n'aurait un début d'idée du pourquoi ça veut pas marcher ?

Tu n'es pas obligé d'ouvrir le fichier pour récupérer la date: GetFileAttributesEx fait cela très bien
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/openfile.asp

Tu es sûr d'avoir bien utilisé le bon format de date ?

Salut

(ceci est valable dans Delphi 6, à vérifier dans les versions antérieures)
Il existe une fonction dans SysUtils qui réalise ce calcul :

Code:

---

1 2	function FileAge(const FileName: string): Integer;

---

et

Code:

---

1 2	function FileDateToDateTime(FileDate: Integer): TDateTime;

---

pour se ramener à un TDateTime.

cdlt

e-ric

Conseil à l'attention de la tablée : N'hésitez pas à potasser les sources de la VCL, il y a plein de bonnes choses toutes faites.

Merci bien, ça marche nickel comme ça ! Et d'ailleurs j'ai trouvé pourquoi la première solution ne marchait pas, yavait un bug dans l'attribution des chemins de fichiers. Mais si la solution avec FileAge n'ouvre pas le fichier et est donc meilleure en ressource et temps, je prends.