Using FileSystemWatcher to Monitor Multiple Directories

Public Class Watcher
        Public Property Directory As String
        Public Property Filter As String
        Private _changeMethod As [Delegate]
        Public Property ChangeMethod As [Delegate]
            Get
                Return _changeMethod
            End Get
            Set(ByVal value As [Delegate])
                _changeMethod = value
            End Set
        End Property
        Private fileSystemWatcher As FileSystemWatcher = New FileSystemWatcher()
        Public Sub New(ByVal directory As String, ByVal filter As String, ByVal invokeMethod As [Delegate])
            Me._changeMethod = invokeMethod
            Me.Directory = directory
            Me.Filter = filter
        End Sub

        Public Sub StartWatch()
            fileSystemWatcher.Filter = Me.Filter
            fileSystemWatcher.Path = Me.Directory
            fileSystemWatcher.EnableRaisingEvents = True
            AddHandler fileSystemWatcher.Changed, New FileSystemEventHandler(AddressOf fileSystemWatcher_Changed)
        End Sub
        Private Sub fileSystemWatcher_Changed(ByVal sender As Object, ByVal e As FileSystemEventArgs)
            If _changeMethod IsNot Nothing Then
                _changeMethod.DynamicInvoke(sender, e)
            End If
        End Sub
    End Class

    Delegate Sub invokeMethodDelegate(ByVal sender As Object, ByVal e As FileSystemEventArgs)
    Dim _IntegrationFiles As IntegrationFiles = New IntegrationFiles
    Public Sub _Fn_StartMultipleFolderWatch() 'Call this Sub to start the watch
        Dim mymethod As invokeMethodDelegate = New invokeMethodDelegate(AddressOf InvokeMethod)
        _IntegrationFiles = JsonConvert.DeserializeObject(Of IntegrationFiles)(IO.File.ReadAllText(DP + "\_bin\_config\_fw.json")) 'Read configuration from json.
        For Each _folder As Folder In _IntegrationFiles.Folders 'iterate through the configuration and assigning folders to watch
            Console.WriteLine("File watch initiated for " + _folder.Name + ": \\" + _folder.IP + "\" + _folder.Folder + "\")
            Dim Watcher1 As Watcher = New Watcher("\\" + _folder.IP + "\" + _folder.Folder, "*.*", mymethod)
            Watcher1.StartWatch()
        Next
        Dim zRetVal As String = Console.ReadLine()
    End Sub

    Private Sub InvokeMethod(ByVal sender As Object, ByVal e As FileSystemEventArgs)
        Console.WriteLine("Change in file {0}", e.FullPath)
' <Write any code here to execute when any activity is captured>
    End Sub

{
  "Folders": [
    {
      "Name": "CMSIntegration",
      "IP": "192.168.86.31",
	  "Folder": "integration",
      "iFiles": [
        {
          "Name": "Actual.txt",
   		  "Descritpion":"Contains CMS Equipment faults",
          "Fn": ""
        },
        {
          "Name": "uptime.txt",
		  "Descritpion":"Contains Server Status and uptime details",
          "Fn": ""
        }
      ]
    },
  {
      "Name": "GOS",
      "IP": "192.168.86.31",
	  "Folder": "GOS",
      "iFiles": [
        {
          "Name": "GOSFault.txt",
		  "Descritpion":"Contains GOS faults details",
          "Fn": ""
        },
        {
          "Name": "GOSDock.txt",
		  "Descritpion":"Contains Docking details",
          "Fn": ""
        }
      ]
    }
  ]
}

Public Class iFile
    Public Property Name As String
    Public Property Descritpion As String
    Public Property Fn As String
End Class

Public Class Folder
    Public Property Name As String
    Public Property IP As String
    Public Property Folder As String
    Public Property iFiles As List(Of iFile)
End Class

Public Class IntegrationFiles
    Public Property Folders As List(Of Folder)
End Class