VB .NET Monitorando Arquivos

Imports System.IO

Public Class Form1

    Private watcher As New FileSystemWatcher()

    Private Sub Alterado(ByVal source As Object, ByVal e As FileSystemEventArgs)

        ' Informa se o arquivo foi criado, alterado ou deletado.

        Select Case e.ChangeType

            Case WatcherChangeTypes.Created

                lstEvento.Items.Add("Arquivo: " & e.FullPath & " Criado! " & Date.Today.ToLongDateString & "  " & DateTime.Now.Hour)

            Case WatcherChangeTypes.Changed

                lstEvento.Items.Add("Arquivo: " & e.FullPath & " Alterado! " & Date.Today.ToLongDateString & "  " & DateTime.Now.Hour)

            Case WatcherChangeTypes.Deleted

                lstEvento.Items.Add("Arquivo: " & e.FullPath & " Deletado!" & Date.Today.ToLongDateString & "  " & DateTime.Now.Hour)

        End Select

        watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)

    End Sub

    Private Sub Renomeado(ByVal source As Object, ByVal e As RenamedEventArgs)

        ' Informa quando o arquivo for renomeado.

        lstEvento.Items.Add(String.Format("Arquivo: {0} renomeado para: {1}", e.OldFullPath, e.FullPath))

    End Sub

    Private Sub btnMonitorar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMonitorar.Click

        'Libera acesso à Thread, Somente para Debugar

        CheckForIllegalCrossThreadCalls = False

        'Atribuimos o Evento ao Método

        AddHandler watcher.Created, AddressOf Alterado

        AddHandler watcher.Changed, AddressOf Alterado

        AddHandler watcher.Deleted, AddressOf Alterado

        AddHandler watcher.Renamed, AddressOf Renomeado

        'Informamos o Caminho da Pasta

        watcher.Path = txtPasta.Text

        'Informamos o Tipo de Arquivo que será monitorado

        watcher.Filter = "*.*"

        'Setamos para Monitorar os Sub Diretórios

        watcher.IncludeSubdirectories = True

        'Iniciamos o Monitoramento

        watcher.EnableRaisingEvents = True

    End Sub

End Class

 Espero ter ajudado, Abraço!

Pegue o projeto neste link: http://www.mediafire.com/?ot4l62cuzdl70kh