Discussion :

[K2O2$]

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.

[babaothe]

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

[K2O2$]

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

Merci pour votre réponse.

Olivier