Private WithEvents fsw As New System.IO.FileSystemWatcher()
 
    Private Sub cmdStart_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdStart.Click
        With fsw
            .Path = "\\Max\D"
            .IncludeSubdirectories = True
            .Filter = "*.*"
        End With
 
        fsw.EnableRaisingEvents = True
    End Sub
 
    Private Sub fsw_Changed(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs) Handles fsw.Changed
        ListBox1.Items.Add("ch:" + e.FullPath + " - " + e.ChangeType.ToString())
    End Sub
 
    Private Sub fsw_Created(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs) Handles fsw.Created
        ListBox1.Items.Add("cr:" + e.FullPath + " - " + e.ChangeType.ToString())
    End Sub
 
    Private Sub fsw_Deleted(ByVal sender As Object, ByVal e As _
      System.IO.FileSystemEventArgs) Handles fsw.Deleted
        ListBox1.Items.Add("de:" + e.FullPath + " - " + e.ChangeType.ToString())
    End Sub
 
    Private Sub fsw_Error(ByVal sender As Object, ByVal e As _
      System.IO.ErrorEventArgs) Handles fsw.Error
        ListBox1.Items.Add("er:" + e.GetException().Message)
    End Sub
 
    Private Sub fsw_Renamed(ByVal sender As Object, ByVal e As _
      System.IO.RenamedEventArgs) Handles fsw.Renamed
        ListBox1.Items.Add("rn:" + e.OldFullPath + " - " + e.FullPath())
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist