Imports System.IO
 
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        FolderBrowserDialog1.ShowDialog()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        FileSystemWatcher1.Path = FolderBrowserDialog1.SelectedPath
        FileSystemWatcher1.NotifyFilter = NotifyFilters.LastWrite Or _
          NotifyFilters.Size
        FileSystemWatcher1.EnableRaisingEvents = True
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
 
    Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal _
      e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed
        'wenn sich eine Datei im Pfad geändert hat
        MsgBox("Die Datei " & e.Name & " wurde in Ihrem Copy erstellt ", _
          MsgBoxStyle.MsgBoxSetForeground, "Dateiänderung erkannt")
    End Sub
 
    Private Sub FileSystemWatcher1_Created(ByVal sender As System.Object, ByVal _
      e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created
        'wenn sich eine Datei im Pfad geändert hat
        MsgBox("Die Datei " & e.Name & " wurde in Ihrem Copy erstellt ", _
          MsgBoxStyle.MsgBoxSetForeground, "Dateiänderung erkannt")
    End Sub
End Class