Discussion :

[Alex35]

Bonjour,

Je souhaite grace au fso me renvoyer les deux fichiers les plus récents d'un repertoire.

Pour le premier, le fichier le plus récent qui conteint "transac"

et pour le second le fichier le plus recent qui contient "ope"...


J'avoue que je ne vois pas trop comment faire...


D'ava,ce merci!

[Alex35]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Récupère une liste de fichiers
Dim MyFiles As String() = System.IO.Directory.GetFiles("C:\UnRepertoire", "*")
'Liste trièe contenant les noms des fichiers
dim mLst as new System.Collections.SortedList
'Si fichiers trouvés
If MyFiles IsNot Nothing Then
   'Tri les fichiers par date du plus ancien au plus récent
   Dim i as Integer
   For i  = 0 To MyFiles.Length - 1
      Dim CurrentDate As Date = New IO.FileInfo(MyFiles(i)).LastWriteTime
      mLst.Add(Format(CurrentDate,"yyyy.MM.dd.hh.mm.ss"),MyFiles(i))
   Next 
End if
'Pour récupérer les fichier le plus ancien, prendre le premier élément. Pour le plus récent, le dernier.