Ver Mensaje Individual
  #1 (permalink)  
Antiguo 30/09/2013, 16:15
estlui
 
Fecha de Ingreso: noviembre-2003
Mensajes: 209
Antigüedad: 20 años, 4 meses
Puntos: 0
FileSystemWatcher

Buena tarde ...

FileSystemWatcher al crear un archivo en la carpeta vigilada me reporta 2 veces la creacion del archivo, aun cuando solo fue uno el que se creo... ¿a alguien le ha pasado?, ¿como podria corregir esto?

Al probar paso por paso el codigo la subrutina fsw_crear se ejecuta 2 veces y no se porque.



Código vb:
Ver original
  1. Private Sub btnOn_Click(sender As System.Object, e As System.EventArgs) Handles btnOn.Click
  2.         Try
  3.  
  4.             If ValidarRuta() <> False Then
  5.                 btnDesactivar()
  6.                 FileSystemWatcher1.Path = tbRuta.Text
  7.                 'AddHandler FileSystemWatcher1.Changed, AddressOf fsw_cambiar
  8.                'AddHandler FileSystemWatcher1.Deleted, AddressOf fsw_borrar
  9.                AddHandler FileSystemWatcher1.Created, AddressOf fsw_crear
  10.                 'AddHandler FileSystemWatcher1.Renamed, AddressOf fsw_renombrar
  11.  
  12.                 FileSystemWatcher1.Filter = tbFiltro.Text
  13.                 FileSystemWatcher1.NotifyFilter = NotifyFilters.LastAccess Or NotifyFilters.Attributes Or _
  14.                NotifyFilters.CreationTime Or NotifyFilters.DirectoryName Or NotifyFilters.FileName _
  15.                Or NotifyFilters.LastWrite Or NotifyFilters.Security Or NotifyFilters.Size
  16.                 FileSystemWatcher1.EnableRaisingEvents = True
  17.  
  18.             End If
  19.  
  20.         Catch ex As Exception
  21.             MessageBox.Show(ex.Message, "Error")
  22.         End Try
  23.     End Sub
  24.  
  25.    
  26.     Private Sub fsw_crear(sender As Object, e As FileSystemEventArgs)
  27.         Try
  28.             lbxCambios.Items.Add("Archivo Creado: " & Convert.ToString(e.FullPath))
  29.             Exit Sub
  30.         Catch ex As Exception
  31.             MessageBox.Show(ex.Message, "Error")
  32.         End Try
  33.     End Sub


Muchas gracias