File Watcher

Set Properties:

 Try
          
            FileSystemWatcher1.Path = POLL_IN
            FileSystemWatcher1.NotifyFilter = (NotifyFilters.CreationTime Or _
                                            NotifyFilters.FileName Or _
                                            NotifyFilters.LastAccess Or _
                                            NotifyFilters.LastWrite Or _
                                            NotifyFilters.Size)
            FileSystemWatcher1.IncludeSubdirectories = True
            FileSystemWatcher1.Filter = "*.*"

            AddHandler Me.FileSystemWatcher1.Changed, AddressOf MoveFile
            AddHandler Me.FileSystemWatcher1.Created, AddressOf MoveFile

            FileSystemWatcher1.EnableRaisingEvents = True
     
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

========================================================

Adding Handler:

   Private Sub MoveFile(ByVal source As Object, ByVal e As System.IO.FileSystemEventArgs)

     'for Change Types: Created/Renamed/Deleted/Changed

        If e.ChangeType = WatcherChangeTypes.Created Then
            While IsFileLocked(process_Folder) = True
                System.Threading.Thread.Sleep(1000)
            End While

        End If
    End Sub

========================================================

Set Events Handled:



Private Sub FileSystemWatcher1_Created(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created, FileSystemWatcher1.Changed
       

 Try
         'code here for file system watch trigger during change and create

Catch ex As Exception
            MsgBox(ex.Message)
End Try

End Sub