Option Explicit On
Option Strict On
Public Class Form1
'// Designer
'// [..]
    Dim fsw1 As IO.FileSystemWatcher
    Dim fsw2 As IO.FileSystemWatcher
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        fsw1 = New IO.FileSystemWatcher("C:\Temp1\")
        fsw2 = New IO.FileSystemWatcher("C:\Temp2\")
        Dim fsws() As IO.FileSystemWatcher = New IO.FileSystemWatcher() {fsw1, _
          fsw2}
        For Each fsw As IO.FileSystemWatcher In fsws
            AddHandler fsw.Created, AddressOf Me.fsw_Created
            fsw.IncludeSubdirectories = True
            fsw.Filter = "*.*"
            fsw.NotifyFilter = IO.NotifyFilters.FileName
            fsw.EnableRaisingEvents = True
        Next
    End Sub
    Private Sub fsw_Created(ByVal sender As Object, ByVal e As _
      IO.FileSystemEventArgs)
        Debug.WriteLine("Datei erstellt im Ordner: " + CType(sender, _
        IO.FileSystemWatcher).Path)
    End Sub
End Class