Private Sub fsw_changed(sender As Object, _
        e As System.IO.FileSystemEventArgs) Handles fsw.Changed
 
    FullPathToList = e.FullPath
    lvwFileInformation.Invoke _
        (New MethodInvoker(AddressOf AdjustListItem))
 End Sub
 
 
 Private Sub AdjustListItem()
     If Not IO.File.Exists(FullPathToList) Then Exit Sub
     Dim fi As New IO.FileInfo(FullPathToList)
 
     Dim lwt As Date = fi.LastWriteTime 'neue LastWrite-Zeit
     Dim lvi As ListViewItem = Nothing
     Dim lvi_neu As ListViewItem = Nothing
     Dim fp As String = fi.FullName.ToUpper 'Pfad der geänd. Datei
 
     With ListView1
        For i As Integer = 0 To .Items.Count - 1
           lvi = .Items(i)
           With lvi
              'Überprüfen, ob der volle Pfad der geänderten Datei
              'mit dem gelisteten Pfad des Items identisch ist
              If fp = .SubItems(2).Text.ToUpper Then
                 'neue LW-Zeit eintragen evt. Now.ToString ??
                 .Text = lwt.ToString  
                 .BackColor = Color.Red 'Item markieren
                 .ForeColor = Color.White
                 .Font = New Font(.Font.Name, .Font.Size, FontStyle.Bold)
                 'Item-Kopie (Klon) für das Verschieben erstellen
                 lvi_neu = DirectCast(.Clone, ListViewItem)
                 Exit For
              End If
           End With
        Next i
 
        If lvi_neu IsNot Nothing Then
           'Die alte Item-Version aud Listview entfernen
           .Items.Remove(lvi)
           'Das modifizierte Item muss an den Listen-Anfang           
           .Items.Insert(0, lvi_neu)
        End If
    End With
 End Sub