Discussion :

[iam]

salut tout le monde
j'utilise le composant Raise, alors je visualise les ficchiers d'un réprtoire déterminé qui contient les sauvegardes de la base de données avec des noms de fichier du genre : A8D_Data_14_04_20070.zip et cela à l'aide des composants : RzDirectoryListBox1, RzFileListBox1, quand il y a bcp de sauvegarde les fichiers ne sont pas ordonnés par date par ordre décroissant, y a t'il un moyen de le faire par programmation ou bien une propriété que je doit l'exploiter? j'ai chercher auprès du forum mais je n'ai rien trouvé
merci

[philnext]

Je ne connais pas Raise mais peux tu expliquer ce que tu veux exactement : avoir la liste des fichiers classés par odre alpha, par ordre de création ou autre chose ?

[iam]

je veux avoir la liste des fichiers classée par ordre de création (date) décroissant
merci

[philnext]

Une solution c'est de récupérer la liste de tes fichiers et de faire un FileGetAttr ( http://delphi.developpez.com/faq/?pa...tributsfichier) qui te permet de récupérer les attributs de fichiers donc de trier dessus.

[iam]

salut
merci pour ta réponse, j'ai consulté l'url que tu m'as donné mais je n'ai pas compris ce que je peux faire par FileGetAttr, par ailleur j'ai trouvé ça :

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 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;

le pb que l'API GetFileTime n'est pas reconnue par delphi, est ce que cette fonction est correcte?

[Gilbert Geyer]

Voiçi des routines Delphi 5 :

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
function DateHeureCreatFichier(fichier: string): TDateTime; 
var        SearchRec : TSearchRec; Res : longint; 
begin     Result:=0; 
            Res:=FindFirst(fichier, FaAnyFile, SearchRec); 
            if Res=0 then Result:=FileDateToDateTime(SearchRec.Time); 
            FindClose(SearchRec); 
end;

// Pour obtenir juste la date : Appel de la fonction précédente avec :

           Label1.Caption:=DateToStr(DateHeureCreatFichier('c:\fichier.doc'));

// Et pour obtenir juste l'heure de la dernière modification d'un fichier 

           Label1.Caption:=TimeToStr(DateHeureCreatFichier('c:\fichier.doc'));