Public Class Form1
    '// Designer
    '// [..]
    '// INFO:
    '// Inhalt der Datei folder.txt:
    '////////////////////////////////
    'C:\Temp1
    'C:\Temp2
    'C:\Temp3
    '////////////////////////////////
    Dim fsw() As IO.FileSystemWatcher
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim s() As String = Me.GetFileSystemFolders
        ReDim fsw(s.Length - 1)
        For a As Integer = 0 To s.Length - 1
            fsw(a) = New IO.FileSystemWatcher(s(a))
            AddHandler fsw(a).Created, AddressOf Me.fsw_Created
            fsw(a).IncludeSubdirectories = True
            fsw(a).Filter = "*.*"
            fsw(a).NotifyFilter = IO.NotifyFilters.FileName
            fsw(a).EnableRaisingEvents = True
        Next
    End Sub
 
    Private Function GetFileSystemFolders() As String()
        Dim al As New ArrayList
        Dim sr As New IO.StreamReader("C:\folder.txt")
        While sr.Peek > -1
            al.Add(sr.ReadLine.Trim)
        End While
        Return CType(al.ToArray(GetType(String)), String())
    End Function
 
    Private Sub fsw_Created(ByVal sender As Object, ByVal e As _
      IO.FileSystemEventArgs)
        MessageBox.Show("Datei erstellt im Ordner: " + CType(sender, _
        IO.FileSystemWatcher).Path)
    End Sub
 
    Private Sub btnToggleFSW_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnToggleFSW.Click
        For Each f As IO.FileSystemWatcher In Me.fsw
            f.EnableRaisingEvents = Not f.EnableRaisingEvents
        Next
    End Sub
End Class