watcher = New FileSystemWatcher
AddHandler watcher.Changed, AddressOf OnChanged
AddHandler watcher.Created, AddressOf OnChanged
AddHandler watcher.Deleted, AddressOf OnChanged
AddHandler watcher.Renamed, AddressOf OnRenamed
With watcher
  .Path = _path
  .Filter = _filter
  .IncludeSubdirectories = _subdir
 '.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or 
 ' NotifyFilters.FileName Or NotifyFilters.DirectoryName Or NotifyFilters.Size)
  .NotifyFilter = NotifyFilters.Size
  .InternalBufferSize = 1024
End With
watcher.EnableRaisingEvents = True

    Private Sub OnChanged(ByVal source As Object, ByVal e As _
      FileSystemEventArgs)
        Debug.Print(Date.Now & " File: " & e.FullPath & " " & e.ChangeType)
    End Sub
 
    Private Sub OnRenamed(ByVal source As Object, ByVal e As RenamedEventArgs)
        Debug.Print(Date.Now & " File: {0} renamed to {1}", e.OldFullPath, _
          e.FullPath)
    End Sub

Gruss mm78pr

http://msdn.microsoft.com/de-de/default.aspx