Public Class Form1
    '// Designer
    '// [..]
    '// INFO:
    '// Inhalt der Datei folder.txt:
    '////////////////////////////////
    'C:\Temp1
    'C:\Temp2
    'C:\Temp3
    '////////////////////////////////
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim fsw As IO.FileSystemWatcher
        For Each f As String In Me.GetFileSystemFolders
            fsw = New IO.FileSystemWatcher(f)
            AddHandler fsw.Created, AddressOf Me.fsw_Created
            fsw.IncludeSubdirectories = True
            fsw.Filter = "*.*"
            fsw.NotifyFilter = IO.NotifyFilters.FileName
            fsw.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)
        Debug.WriteLine("Datei erstellt im Ordner: " + CType(sender, _
        IO.FileSystemWatcher).Path)
    End Sub
End Class