Bonjour,

J'utilise la fonction suivante pour recuperer le nombre de jours dont est agé un fichier.
Aujourd'hui je voudrais passer un repartoire a la place d'un fichier (enfin les deux en fait).
Apparemment cela ne marche pas ca me renvoi une valeur comme 14562 je crois.

Comment puis-je faire pour pouvoir faire le meme traietement que cette fonction sur un repertoire?

Merci d'avance.


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
//on commence a recuperer les didderentes dates systeme du fichier
  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;
 
    finally
      FileClose(h);
 
      Age := DaysBetween(Created, Now) + 1;