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
0 comentários:
Postar um comentário