With FileSystemWatcher1
        ' zu überwachendes Verzeichnis
        .Path = D:\TestFolder
 
        ' alle Dateien
                .Filter = "*.txt"
 
        ' auch Unterverzeichnisse überwachen?
                .IncludeSubdirectories = True
 
        ' Benachrichtigungsfilter festlegen
        .NotifyFilter = IO.NotifyFilters.LastAccess Or _
          IO.NotifyFilters.LastWrite Or _
          IO.NotifyFilters.FileName Or IO.NotifyFilters.DirectoryName
 
        ' Ereignissteuerung (Überwachung) starten
                .EnableRaisingEvents = True
      End With

.Filter = ""

.Filter = ""

'anstelle von
.Filter = "*.txt"
 
'letztendlich also
.Filter = "*.txt, *.doc, *.rtf"