Lire des fichiers par date de modification

Bonjour à tous,

J'utilise le code ci-dessous pour lire des fichiers :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim fso As New FileSystemObject Dim fld As Folder Dim oFile As File   Set fld = fso.GetFolder(FileName)   For Each oFile In fld.Files If (Left(oFile.Name, 7) = "SHTINF_") And (Right(oFile.Name, 4) = ".LOG") Then 'ouvre le fichier End If Next oFile   Set fld = Nothing

---

Mon soucis est que j'aimerais les lire les fichiers par ordre de date de modification et non pas par nom de fichier.

Existe t'il une astuce assez rapide permettant cette manip ?
J'ai bien peur de devoir stocker le nom de fichier ainsi que sa date de modification dans un tableau à 2 dimensions. Puis de trier tout ça par date. Et enfin de parcourir le tableau pour lire les fichiers.

Merci pour votre aide.

Citation:

---

Envoyé par K2O2$

J'ai bien peur de devoir stocker le nom de fichier ainsi que sa date de modification dans un tableau à 2 dimensions. Puis de trier tout ça par date. Et enfin de parcourir le tableau pour lire les fichiers.

---

Les fichiers seront vus dans l'ordre de l'explorateur (par dates si ainsi triés à l'affichage, mais cela impliquerait une modification des paramètres d'affichage dans Explorer.exe)
Si l'on ne souhaite pas modifier ce paramètre, il faudra en effet penser à procéder en deux étapes : une de relevés puis tri (listbox ou tableau) et une d'exploitation

C'est bien ce que je pensais.
Je garde la solution du tableau à 2 dimensions.

Merci pour votre réponse.

Olivier