[D7][TRI] Visualiser les fichiers triés par date de création dans TFileListBox

Version imprimable

16/04/2007, 11h59
iam

[D7][TRI] Visualiser les fichiers triés par date de création dans TFileListBox

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
16/04/2007, 13h43
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 ?
17/04/2007, 16h28
iam

je veux avoir la liste des fichiers classée par ordre de création (date) décroissant
merci
17/04/2007, 17h54
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.

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:

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?

Voiçi des routines Delphi 5 :

Code:

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