How to Stop Filesystem Watcher?

See more:

VB

Ok I have successfully achieved my task of monitoring all hard drives on my computer with filesystem watcher but now the problem is that it will not stop or exit my for each loop with the conventional method "filesystemwatcher1.enableraisingevents = false"

here is the full code

 Imports System.IO
Public Class Form1
    Private Sub OnChanged(ByVal sender As Object, ByVal e As FileSystemEventArgs)
        ' Specify what is done when a file is changed, created, or deleted.
        ListBox1.Items.Add(e.FullPath & " " & e.ChangeType)
        Label6.Text = (e.FullPath & " " & e.ChangeType)
        Label1.Text += 1
    End Sub
    Private Sub OnRenamed(ByVal sender As Object, ByVal e As RenamedEventArgs)
        ' Specify what is done when a file is renamed.
        ListBox1.Items.Add(e.FullPath & " " & e.ChangeType)
        Label6.Text = (e.FullPath & " " & e.ChangeType)
        Label1.Text += 1
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CheckForIllegalCrossThreadCalls = False
        FSW()
    End Sub
    Public Sub FSW()
        Dim drives As String() = Environment.GetLogicalDrives()
        For Each strDrive As String In drives
            'Check if the drive is ready to be used 
            Dim df As New DriveInfo(strDrive)
            If Not df.IsReady Then
                Continue For
            End If
            Dim _watcher As New FileSystemWatcher()
            _watcher.IncludeSubdirectories = True
            _watcher.Path = strDrive
            _watcher.NotifyFilter = NotifyFilters.Attributes Or NotifyFilters.CreationTime Or NotifyFilters.DirectoryName Or NotifyFilters.FileName _
            Or NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.Security Or NotifyFilters.Size
            AddHandler _watcher.Changed, AddressOf OnChanged
            AddHandler _watcher.Created, AddressOf OnChanged
            AddHandler _watcher.Deleted, AddressOf OnChanged
            AddHandler _watcher.Renamed, AddressOf OnRenamed
                _watcher.EnableRaisingEvents = True
        Next
    End Sub
End Class

How can i rearrange this so that I can start and stop the filesystem watcher?

thank you in advance!!