Discussion :

[Kara]

Bonjour,

J'utilise la fonction présente dans la FAQ pour les date de fichier de la facon suivante:

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
31
32
 
function TForm1.Verification_Date(const FileName, jours: string): boolean;
var
  h: THandle;
  Info1, Info2, Info3: TFileTime;
  SysTimeStruct: SYSTEMTIME;
  TimeZoneInfo: TTimeZoneInformation;
  Bias: Double;
  Created, Accessed, Modified : TDateTime;
Begin
 
  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;
      ListBox1.Items.Add(Filename+' | '+jours+' | '+TimeToStr(Created)+' | '+TimeToStr(Accessed)+' | '+TimeToStr(Modified)+'');
      Result := True;
    finally
      FileClose(h);
    end;
  end;
End;

Or, dans ma liste box les dates correspondantes aux fichiers ne correspondent a rien de connu et sont les memes pour tous les fichiers alors que je ne les ai pas créés en même temps.

Voila ce que cela donne :



Quelsqu'un pourrais-t-il me dire où j'ai merdé?
Merci d'avance


PS : mon FileName n'est pas en cause à ^riori puisque pour eliminer la possibilité que se soit le cas j'ai essayé de travailler avec un fichier à la racine du C: en le passant direcetement en parametre.

[Kara]

Bon alors déjà escusez moi je viens de trouver un premiere erreur à la con c'est pas des TimeToStr qu'il faut que j'utilise pour afficher mais des DateToStr.

Ceci fait le probleme est différent, j'ai des dates fantasque telles que 23/01/1777 ou 02/05/1958

[Kara]

Je me permet de faire un tout ptit up mon post ayant tendance à descendre dans les profondeurs du forum...

[jpp]

a tout hasard , il faudrait pas mettre les deux ? Datetostr et timetostr ?

[jpp]

en fait j'avais mal regardé, c'est pas des Tdate c'est des TDateTime, donc ton format de sortie doit être en conséquence. regarde dans la faq comment formater une date ça cause de TdateTime.