'Récupère une liste de fichiers
Dim MyFiles As String() = IO.Directory.GetFiles("C:\UnRepertoire", "*")
'Si fichiers trouvés
If MyFiles IsNot Nothing Then
Dim MySortedFiles As New List(Of String)
MySortedFiles.Add(MyFiles(0))
'Tri les fichiers par date du plus ancien au plus récent
'Dans la collection MySortedFiles
For i As Integer = 1 To MyFiles.Length - 1
Dim CurrentDate As Date = New IO.FileInfo(MyFiles(i)).LastWriteTime
For j As Integer = 0 To MySorteFiles.Count - 1
Dim NextDate As Date = New IO.FileInfo(MySorteFiles(j)).LastWriteTime
'Compare les dates du fichier précédent avec date du fichier en cours
If Date.Compare(CurrentDate, NextDate) < 0 Then
MySorteFiles.Insert(j, MyFiles(i))
Exit For
ElseIf j = MySorteFiles.Count - 1 Then
MySortFiles.Add(MyFiles(i))
Exit For
End If
Next
Next