Public Class FileTime
    Implements IComparable(Of FileTime)
 
    Public Property Fullname As String
    Public Property LastWriteTime As Date
 
 
    Public Function CompareTo(other As FileTime) As Integer _ 
        Implements IComparable(Of FileTime).CompareTo
 
        Return Me.LastWriteTime.CompareTo(other.LastWriteTime)
    End Function
End Class

Dim files As New List(Of FileTime)
 
Dim searchpattern As String = "*.*"
 
Dim di As New IO.DirectoryInfo(".....")
 
For Each fi As IO.FileInfo In di.GetFiles(searchpattern)
    files.Add(New FileTime With
         {.Fullname = fi.FullName, .LastWriteTime = fi.LastWriteTime})
Next fi
 
files.Sort()  'Sortieren unter Nutzung der CompareTo-Methode in FileTime