Ejemplo de Uso de FILESYSTEMWACHER vb net
Hola a tod@s:
Aqui os traigo un ejemplo de “como utilizar Filesystemwacher”
Esta clase nos permite monitorizar los archivos que están en un directorio, o directorios, y saber si se han creado nuevos, se han borrado, renombrado, etc…
Para ello en nuestro proyecto nos declaramos una variable publica con eventos de esta clase de .net de la siguiente forma.
Primero te dejo el video como siempre
y ahora el codigo y la explicacion
1 |
Public WithEvents FSW As New System.IO.FileSystemWatcher |
Ahora en el load le especificamos la carpeta, extensiones que va a buscar si incluye o no subdirectorios, y si queremos utilizar los eventos, para este ejemplo le decimos que si , de tal manera que nos quede algo parecido a esto:
1 2 3 4 5 |
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load FSW.Path = "E:\Mapeo" FSW.IncludeSubdirectories = True FSW.EnableRaisingEvents = True End Sub |
Ahora el elemento FSW tiene eventos Changed, Created, Deleted, y Renamed.
De tal modo que podriamos mostrar un mensaje de texto cuando algo ocurra, aqui el codigo.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Private Sub FSW_Changed(sender As Object, e As IO.FileSystemEventArgs) Handles FSW.Changed MsgBox("Se ha modificado un fichero " & e.Name, MsgBoxStyle.Information) End Sub Private Sub FSW_Created(sender As Object, e As IO.FileSystemEventArgs) Handles FSW.Created MsgBox("Se ha creado un fichero " & e.Name, MsgBoxStyle.Information) End Sub Private Sub FSW_Deleted(sender As Object, e As IO.FileSystemEventArgs) Handles FSW.Deleted MsgBox("Se ha eliminado un fichero " & e.Name, MsgBoxStyle.Information) End Sub Private Sub FSW_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles FSW.Renamed MsgBox("Se ha Cambiado el nombre de un fichero de " & e.OldName & " a " & e.Name, MsgBoxStyle.Information) End Sub |
Bien ahora solo queda probarlo, Espero que os sirva, un saludo a todos.
y como siempre comenten, y siguenos en facebook, twitter y o Google+.
Todo el codigo seguido:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Public Class Form1 Public WithEvents FSW As New System.IO.FileSystemWatcher Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load FSW.Path = "E:\Mapeo" FSW.IncludeSubdirectories = True FSW.EnableRaisingEvents = True End Sub Private Sub FSW_Changed(sender As Object, e As IO.FileSystemEventArgs) Handles FSW.Changed MsgBox("Se ha modificado un fichero " & e.Name, MsgBoxStyle.Information) End Sub Private Sub FSW_Created(sender As Object, e As IO.FileSystemEventArgs) Handles FSW.Created MsgBox("Se ha creado un fichero " & e.Name, MsgBoxStyle.Information) End Sub Private Sub FSW_Deleted(sender As Object, e As IO.FileSystemEventArgs) Handles FSW.Deleted MsgBox("Se ha eliminado un fichero " & e.Name, MsgBoxStyle.Information) End Sub Private Sub FSW_Renamed(sender As Object, e As IO.RenamedEventArgs) Handles FSW.Renamed MsgBox("Se ha Cambiado el nombre de un fichero de " & e.OldName & " a " & e.Name, MsgBoxStyle.Information) End Sub End Class |