OVH Cloud OVH Cloud

Evenement FileSystemWatcher en Visual studio

2 réponses
Avatar
RENAUD Eric
Bonjour,

J'utilise cet évenement pour scruter un répertoire et à chaque ajout ou
modif de fichiers, le controle Label1 affiche le nom du fichier concerné.
Je voudrais également ajouter ce nom dans une Listbox. Le code ci-dessus
fonctionne sauf que .... à chaque modif ou ajout, j'ai trois fois le même
libellé.
Pourquoi ?
Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal
e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed

Dim Myval
MyVal = e.Name
Me.Label1.Text = "Changement de " & Myval
ListBox1.Items.Add(Myval)
End Sub


D'avance merci

2 réponses

Avatar
Christian Hugoud
Tu peux peut être faire un clear de la liste avant de la remplir.

Christian


"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de news:


Bonjour,

J'utilise cet évenement pour scruter un répertoire et à chaque ajout ou
modif de fichiers, le controle Label1 affiche le nom du fichier concerné.
Je voudrais également ajouter ce nom dans une Listbox. Le code ci-dessus
fonctionne sauf que .... à chaque modif ou ajout, j'ai trois fois le même
libellé.
Pourquoi ?
Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object,
ByVal
e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed

Dim Myval
MyVal = e.Name
Me.Label1.Text = "Changement de " & Myval
ListBox1.Items.Add(Myval)
End Sub


D'avance merci




Avatar
Clive Lumb
"RENAUD Eric" <erenaud(retirerceci)@fr.fm> a écrit dans le message de
news:

Bonjour,

J'utilise cet évenement pour scruter un répertoire et à chaque ajout ou
modif de fichiers, le controle Label1 affiche le nom du fichier concerné.
Je voudrais également ajouter ce nom dans une Listbox. Le code ci-dessus
fonctionne sauf que .... à chaque modif ou ajout, j'ai trois fois le même
libellé.
Pourquoi ?
Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object,


ByVal
e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed

Dim Myval
MyVal = e.Name
Me.Label1.Text = "Changement de " & Myval
ListBox1.Items.Add(Myval)
End Sub


D'avance merci


A mon avis la modification doit declencher l'evenement trois fois.
(changement de date, taille etc.)
Si tu regardes à coté du FileSystemEventArgs.ChangeType tu pourras depister.