Private Sub fsw_Created(sender As Object, _
    e As System.IO.FileSystemEventArgs) Handles fsw.Created
    FullPathToList = e.FullPath
    listview1.Invoke(New MethodInvoker(AddressOf InsertListItem))
End Sub
 
Public Sub InsertListItem()
 
     If Not IO.File.Exists(FullPathToList) Then Exit Sub
     Dim fi As New IO.FileInfo(FullPathToList)
 
     Dim lwt As Date = fi.LastWriteTime
     Dim lvi As ListViewItem = Nothing
 
     With ListView1
        If lwt >= GetLWT(0) Then
           'frisch geänderte Datei in Ordner eingefügt: an den Listen-Anfang
           lvi = .Items.Insert(0, lwt.ToString)
        ElseIf lwt <= GetLWT(.Items.Count - 1) Then
           'uralte Datei in Ordner eingefügt: anhängen
           lvi = .Items.Add(lwt.ToString)
        Else
           For i As Integer = 0 To .Items.Count - 2
              If lwt < GetLWT(i) AndAlso lwt >= GetLWT(i + 1) Then
                 'Angaben zur Datei in sortierter Liste einordnen
                 lvi = .Items.Insert(i + 1, lwt.ToString)
                 Exit For
              End If
           Next i
        End If
    End With
 
    With lvi
       'Angaben im neuen Listitem ergänzen
       .SubItems.Add(fi.Name)
       .SubItems.Add(fi.FullName)
       'farblich als neu markieren
       .BackColor = Color.LightCyan
       .UseItemStyleForSubItems = True
    End With
End Sub