LECTURE DES FICHIER D'UN REPERTOIR ET TRIAGE SUR LA DATE

Commentaire de tinut le 23/02/2004 16:39:17

loupé, ca ne trie pas par date (du moins pas par année, puis mois, puis jour) car le format jj/mm/aaaa ne permet pas de trier par date. il faut convertir la date en aaaammjj si tu veux avoir un vrai tri.


ca marche uniquement si les fichiers ont le meme mois et année , ce qui est rarement le cas ...

Commentaire de tinut le 23/02/2004 16:53:24

la soluce : remplacer le code (bien commenté, bravo) de l'étape 2 par :


'********************************************
'         DEBUT ETAPE 2
'********************************************
For i = 0 To Source.ListCount - 1 Step 1 ' Boucle de 0 au nombre d'element qu'il y a dans la liste Source -1
                                         ' " -1 " car : (exemple) 5 elements = 0 à 4
Fichier = Path + Source.List(i)         ' (exemple) Fichier = "c:\temp\" + "aa.txt"
DateFichier = FileDateTime(Fichier)     ' DateFichier = date et heure de cretion du fichier "Fichier"

Dim yearDate As String
Dim monthDate As String
Dim dayDate As String
yearDate = Year(DateFichier)
monthDate = Month(DateFichier)
If (Len(monthDate) < 2) Then monthDate = "0" & monthDate
dayDate = Day(DateFichier)
If (Len(dayDate) < 2) Then dayDate = "0" & dayDate




Liste.AddItem (yearDate & monthDate & dayDate & " * " + Path + Source.List(i))
                                         ' Liste.Sorted est deja True , voir ses proprietes '
Liste.ItemData(Liste.NewIndex) = i      ' n'est pas utile , juste indicatif
                                         ' c.à.d : element 1 = n°1 , el 2 = n°2 ,etc...
Next i
'********************************************
'         FIN ETAPE 2
'********************************************




j'ai converti la date en yyyymmdd ce qui permet un tri réellement par date ...