Visual Basic

Dim watchers As New List(Of FileSystemWatcher)()

    ' In the drives loop
    Dim watchfolder As New System.IO.FileSystemWatcher()
    watchfolder.Path = strDrive
    ' Set additional properties here as already done
    watchers.Add(watchfolder)

' Stopping
For Each watchfolder In watchers
    watchfolder.EnableRaisingEvents = False
Next

Quote:

The Windows operating system notifies your component of file changes in a buffer created by the T:System.IO.FileSystemWatcher. If there are many changes in a short time, the buffer can overflow. This causes the component to lose track of changes in the directory, and it will only provide blanket notification. Increasing the size of the buffer with the P:System.IO.FileSystemWatcher.InternalBufferSize property is expensive, as it comes from non-paged memory that cannot be swapped out to disk, so keep the buffer as small yet large enough to not miss any file change events. To avoid a buffer overflow, use the P:System.IO.FileSystemWatcher.NotifyFilter and P:System.IO.FileSystemWatcher.IncludeSubdirectories properties so you can filter out unwanted change notifications.

regsvr32.exe %windir%\system32\zkemkeeper.dll

Private AllDates As DateTime()

Private Sub GetAllDate()
    'TODO: Load the connection string from the configuration file
    Const connectionString As String = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=MyDB;Data Source=192.168.0.8"
    Const sql As String = "SELECT MeetingDate FROM Meetings"
    
    Using connection As New SqlConnection(connectionString)
        connection.Open()
        
        Using command As New SqlCommand(sql, connection)
            Using reader As SqlDataReader = command.ExecuteReader()
                Dim dates As New List(Of DateTime)()
                
                While reader.Read()
                    dates.Add(reader.GetDateTime(0))
                End While
                
                AllDates = dates.ToArray()
            End Using
        End Using
    End Using
End Sub

Private Sub MakeDatesBoldInCalendar()
    MonthCalendar1.BoldedDates = AllDates
End Sub