Bonjour,
Voilà je cherche à trier les fichiers dans un répertoire, leur extension est .csv, j'aimerai les classer par ordre chronologique.
J'ai trouvé ce code sur le net:
Imports Microsoft.VisualBasic
'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.
Donc j'ai adapter les variables pour mon appli, cependant il dit que pour selectionner le fichier le plus récent, il faut séléctionner le dernier ... moi j'ai mis :
Dim fichier As String = MyFiles(
MyFiles.Length - 1).ToString
Comme ça j'ai le chemin du fichier (c:\....)
Mais ça ne marche pas vrmt, ça selectionne un peu au pif :(
Ca vient du code qui serait bidon, on c'est moi qui pige pas le truc...?
Merci