Private WithEvents fsw As New IO.FileSystemWatcher With_
    {.EnableRaisingEvents = False}

 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))
 
        If FileStuff.FileInformationArray.Length > 0 Then
            With fsw
                'zu überwachende Dateien (Muster) 
                .Filter = "*.*"
                'zu überwachender Ordner 
                .Path = _
                IO.Path.GetDirectoryName _
                  (FileStuff.FileInformationArray(0).fullpath)
 
                .IncludeSubdirectories = True
                'Aktivierung des Watchers 
                .EnableRaisingEvents = True
            End With
        Else
            'Keine Dateien gelistet - Watcher????
            fsw.EnableRaisingEvents = False
        End If
    End Sub

Private FullPathToList As String
 
Private Sub fsw_Created(sender As Object, _
        e As System.IO.FileSystemEventArgs) Handles fsw.Created
 
        'Die Überwachung läuft im Hintergrund (InvokeRequired)
        FullPathToList = e.FullPath 'neue Datei
        lvwFileInformation.Invoke _
         (New MethodInvoker(AddressOf AddListItem))
End Sub
 
 
Public Sub AddListItem()
 
   If Not IO.File.Exists(FullPathToList) Then Exit Sub
   Dim fi As New IO.FileInfo(FullPathToList)
 
   With ListView1
      'Item mit Dateiangaben füllen
      Dim lvi As ListViewItem = .Items.Add(fi.Name)
      lvi.SubItems.Add(IO.Path.GetFileName(fi.DirectoryName))
      lvi.SubItems.Add(fi.LastWriteTime.ToString)
      'neues Item farbig markieren
      lvi.BackColor = Color.LightCyan
    End With
End Sub