Discussion :

[Bleuarff]

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.

[Stef.web]

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

[Bleuarff]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Bleuarff]

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

[cpdump]

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 ?

[e-ric]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Bleuarff]

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.