Public Class FileInformation
    Implements IComparable(Of FileInformation)
 
    ''' <summary>Name und Extensions der Datei</summary>
    Public ReadOnly name As String
    '''<summary>Name des Ordners/Unterordners, in dem sich die Datei 
    ' befindet</summary>
    Public ReadOnly folder As String
    ''' <summary>Laufwerk, Pfad und Name der Datei</summary>
    Public ReadOnly fullpath As String
    ''' <summary>Länge der Datei in Bytes</summary>
    Public ReadOnly length As Long
    ''' <summary>Datum der letzten Änderung</summary>
    Public ReadOnly LastWriteTime As Date
    ''' <summary>Schreibschutz gesetzt?</summary>
    Public ReadOnly IsReadonly As Boolean
 
 
    Friend Sub New(fi As IO.FileInfo)
 
       With fi
          name = .Name
          fullpath = .FullName
          folder = IO.Path.GetFileName(.DirectoryName)
          length = .Length
          LastWriteTime = .LastWriteTime
          IsReadonly = .IsReadOnly
       End With
    End Sub
 
 
    Public Function DateTime_CompareTo(other As FileInformation) As Integer _
        Implements System.IComparable(Of FileInformation).CompareTo
 
        Dim diff As Long = Me.LastWriteTime.Ticks - other.LastWriteTime.Ticks
        If Math.Abs(diff) < TimeSpan.TicksPerMinute Then
           Return 0 'Differenz kleiner 1 Sekunde gilt als gleichzeitig !!!
        ElseIf diff >= TimeSpan.TicksPerSecond Then
           Return 1
        Else
           Return -1
        End If
 
        End Function
 End Class

Public Sub SortDateTime(ByVal sortorder As SortOrder)
 
    Array.Sort(FileInformationArray)
 
    If sortorder = Windows.Forms.SortOrder.Descending Then
       Array.Reverse(FileInformationArray)
    End If
End Sub

Dim lvwFileInformation As New ListView With _
   {.Parent = Me, .Top = 170, .Size = New Size(300, 200)}
 
Private Sub SetFileList()
 
   With lvwFileInformation
      'Listview vorbereiten
      .Items.Clear()
      .Columns.Clear()
      .View = View.Details
      .Columns.Add("Name", 100)
      .Columns.Add("LastWriteTime", 150)
      .Columns.Add("Folder", 150)
 
      'Sortieren des Array
      FileStuff.SortDateTime(SortOrder.Descending)
 
      'Array-Daten in ListviewItems eintragen
      For i As Integer = 0 To FileStuff.FileInformationArray.Length - 1
         Dim it As FileSystemStuff.FileInformation = _
                FileStuff.FileInformationArray(i)
         Dim lvi As ListViewItem = .Items.Add(it.name)
         lvi.SubItems.Add(it.LastWriteTime.ToString)
         lvi.SubItems.Add(it.folder)
      Next i
   End With
 
End Sub

Private Sub FileStuff_Finished(sender As Object, _
            e As FileSystemStuff.FilesystemStuffArgs) Handles FileStuff.Finished
    infotext = _
       "Dateien sind gelistet worden " & vbCrLf & "Gesamtzahl: " & _
       e.Count.ToString
 
    lblinfo.Invoke(New MethodInvoker(AddressOf SetInfoText))
    lvwFileInformation.Invoke(New MethodInvoker(AddressOf SetFileList))
End Sub