Bonjour à tous,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.