VB.net Filesystem watcher not working

Imports System.ComponentModel
Imports System.IO
Imports System.Threading

Public Class Form1
    Private isRunning = False
    Private lastChangedTime As DateTime = DateTime.Now
    Private lastFilePath As String = String.Empty
    Private ReadOnly QueuedFiles As New List(Of ProcessableFile)
    WithEvents watchfolder As FileSystemWatcher
    WithEvents worker As New BackgroundWorker With {.WorkerReportsProgress = True, .WorkerSupportsCancellation = True}

    Private Sub OnLoad(sender As Object, e As EventArgs) Handles MyBase.Load
        'Create the monitoring directory if it does not exist already
        If Not Directory.Exists(Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "GlobusMailWatch")) Then
            Directory.CreateDirectory(Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "GlobusMailWatch"))
        End If
        isRunning = True
        worker.RunWorkerAsync()
        InitializeWatchFolder(Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "GlobusMailWatch"))
    End Sub

    Private Sub InitializeWatchFolder(path As String)
        watchfolder = New FileSystemWatcher(path, "*.msg") With {.EnableRaisingEvents = True}
    End Sub

    Private Sub LogAction(ByVal source As Object, ByVal e As System.IO.FileSystemEventArgs) Handles watchfolder.Created, watchfolder.Deleted, watchfolder.Changed
        Try
            Dim span = DateTime.Now.Subtract(lastChangedTime)
            If isRunning AndAlso span.TotalSeconds > 2 OrElse lastFilePath <> e.FullPath Then
                ' Wait a second for any locks to be released before taking actions
                Thread.Sleep(1000)
                Select Case e.ChangeType
                    Case WatcherChangeTypes.Created
                        lastChangedTime = DateTime.Now
                        lastFilePath = e.FullPath
                        Dim match = (From pFile In QueuedFiles Where pFile.File.FullName.Equals(e.FullPath, StringComparison.OrdinalIgnoreCase) Select pFile).SingleOrDefault()
                        If match Is Nothing Then
                            SyncLock (QueuedFiles)
                                QueuedFiles.Add(New ProcessableFile(New FileInfo(e.FullPath)))
                            End SyncLock
                        End If
                        Exit Select
                    Case WatcherChangeTypes.Deleted
                        lastChangedTime = DateTime.Now
                        lastFilePath = e.FullPath
                        Dim match = (From pFile In QueuedFiles Where pFile.File.FullName.Equals(e.FullPath, StringComparison.OrdinalIgnoreCase) Select pFile).SingleOrDefault()
                        If match IsNot Nothing Then
                            SyncLock (QueuedFiles)
                                QueuedFiles.Remove(match)
                            End SyncLock
                        End If
                        Exit Select
                End Select
                worker.ReportProgress(0, String.Format("{0}: {1}", e.ChangeType.ToString().ToUpper(), e.FullPath))
            End If
        Catch ex As Exception
            Console.WriteLine("Exception reported - {0}", ex)
        End Try
    End Sub

    Private Sub OnDoWork(sender As Object, e As DoWorkEventArgs) Handles worker.DoWork
        Try
            While (isRunning)
                SyncLock (QueuedFiles)
                    For i As Integer = QueuedFiles.Count - 1 To 0 Step -1
                        If Not QueuedFiles(i).IsProcessing Then
                            'Simulating a long process
                            Thread.Sleep(10000)
                            Console.WriteLine("Processing new item - {0}", QueuedFiles(i).File.FullName)
                            QueuedFiles(i).IsProcessing = True
                        Else
                            If Not QueuedFiles(i).IsProcessed Then
                                Console.WriteLine("Finished processing - {0}", QueuedFiles(i).File.FullName)
                                QueuedFiles(i).IsProcessed = True
                            Else
                                QueuedFiles(i).File.Delete()
                            End If
                        End If
                    Next
                End SyncLock
            End While
        Catch ex As Exception

        End Try
    End Sub

    Private Sub OnProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles worker.ProgressChanged
        ListBox1.Items.Add(CType(e.UserState, String))
    End Sub

    Private Sub OnClosing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        isRunning = False
        worker.CancelAsync()
    End Sub
End Class

Class ProcessableFile
    Private ReadOnly fFile As FileInfo
    Public ReadOnly Property File() As FileInfo
        Get
            Return fFile
        End Get
    End Property

    Public Property IsProcessing() As Boolean
    Public Property IsProcessed() As Boolean

    Public Sub New(ByVal [file] As FileInfo)
        fFile = file
    End Sub
End Class

Select all Open in new window

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.ListBox1 = New System.Windows.Forms.ListBox()
        Me.SuspendLayout()
        '
        'ListBox1
        '
        Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.ListBox1.FormattingEnabled = True
        Me.ListBox1.Location = New System.Drawing.Point(0, 0)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(707, 261)
        Me.ListBox1.TabIndex = 0
        '
        'Form1
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(707, 261)
        Me.Controls.Add(Me.ListBox1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

    Friend WithEvents ListBox1 As ListBox
End Class

Select all Open in new window