Public Class Class_FileSystemWatcher

    Public Delegate Sub FileSystemMessageEventHandler(ByVal Sender As Object, ByVal e As EventArgumentsFileSystemWatcher)
    Public Event FileSystemMessage As FileSystemMessageEventHandler

    Friend WithEvents fsw As New System.IO.FileSystemWatcher
    Private EventParam As EventArgumentsFileSystemWatcher

    ' --- Proprietà della classe ---
    Private prChangeType As System.IO.WatcherChangeTypes
    Private prFileName As String
    Private prFullPath As String
    Private prOldFileName As String
    Private prOldFullPath As String

    ' _______________________ EVENTI _______________________
    Private Sub fsw_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles fsw.Created

        Dim EventParam As New EventArgumentsFileSystemWatcher
        EventParam.ChangeType = e.ChangeType
        EventParam.FileName = e.Name
        EventParam.FullPath = e.FullPath
        EventParam.OldFileName = ""
        EventParam.OldFullPath = ""

        RaiseEvent FileSystemMessage(Me, EventParam)

    End Sub
    Private Sub fsw_Changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles fsw.Changed

        Dim EventParam As New EventArgumentsFileSystemWatcher
        EventParam.ChangeType = e.ChangeType
        EventParam.FileName = e.Name
        EventParam.FullPath = e.FullPath
        EventParam.OldFileName = ""
        EventParam.OldFullPath = ""

        RaiseEvent FileSystemMessage(Me, EventParam)

    End Sub
    Private Sub fsw_Deleted(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles fsw.Deleted

        Dim EventParam As New EventArgumentsFileSystemWatcher
        EventParam.ChangeType = e.ChangeType
        EventParam.FileName = e.Name
        EventParam.FullPath = e.FullPath
        EventParam.OldFileName = ""
        EventParam.OldFullPath = ""

        RaiseEvent FileSystemMessage(Me, EventParam)
    End Sub
    Private Sub fsw_Renamed(ByVal sender As Object, ByVal e As System.IO.RenamedEventArgs) Handles fsw.Renamed

        Dim EventParam As New EventArgumentsFileSystemWatcher
        EventParam.ChangeType = e.ChangeType
        EventParam.FileName = e.Name
        EventParam.FullPath = e.FullPath
        EventParam.OldFileName = ""
        EventParam.OldFullPath = ""

        RaiseEvent FileSystemMessage(Me, EventParam)

    End Sub

    Private Sub fsw_Error(ByVal sender As Object, ByVal e As System.IO.ErrorEventArgs) Handles fsw.Error
        Dim ex As Exception = e.GetException()
    End Sub

End Class