Sub main()
Dim fsw As New FileSystemWatcher()
fsw.Path = "C:\"
fsw.Filter = "*.vb"
fsw.IncludeSubdirectories = True
fsw.EnableRaisingEvents = True
AddHandler fsw.Changed, AddressOf fswEvent
AddHandler fsw.Created, AddressOf fswEvent
Console.ReadLine()
End Sub
Public Sub fswEvent( _
ByVal sender As Object, _
ByVal e As FileSystemEventArgs)
If e.ChangeType = WatcherChangeTypes.Created Then
Console.WriteLine("Datei {0} wurde erstellt", e.FullPath)
Else
Console.WriteLine("Datei {0} wurde verändert", e.FullPath)
End If
End Sub

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE