Plusieurs Path à surveiller pour un FileSystemWatcher - Surveiller tout l'ordinaRésolu

Question

Bonjour, je cherche comme indiquer dans le titre à surveiller les opérations sur les fichiers effectuées sur tout l'ordinateur.
Pour cela je me sers de FileSystemWatcher, mais j'aimerais pouvoir surveiller plusieurs Path à la fois, et non pas que "C:" par exemple (je voudrais pouvoir surveiller tous mes disques en fait).

Merci.

Utilisateur anonyme · Accepted Answer

Que vient faire CreateObject là dedans ?
Relis mon premier post. Sers toi de IO.DriveInfo.GetDrives

Utilisateur anonyme · Answer

Bonjour,

Sers toi de IO.DriveInfo.GetDrives pour récupérer les lecteurs.
Enumère les dans une boucle et teste s'ils sont prêts (IsReady).
Crée une instance d'un FileSystemWatcher.
Indique lui le Path à surveiller avec RootDirectory.FullName de ton DriveInfo
Indique lui de surveiuller les sous-dossiers avec IncludeSubdirectories
Ajoute un gestionnaire d'événement (AddHandler)
Active le déclenchement des événements (EnableRaisingEvents)

Bonne chance.

gege1505 · Answer

Donc si je comprends bien dans ta boucle, je crée un SystemWatcher pour chaque disque ?

Utilisateur anonyme · Answer

Tu n'as pas le choix puisque la propriété Path n'accepte qu'une seule chaîne.

gege1505 · Answer

ça ne marche pas... Quand je fais cela ça n'observe que le C:\

gege1505 · Answer

Je procède comme ceci :


 Dim FSO = CreateObject("Scripting.FileSystemObject")
        For Each Drv In FSO.Drives
            If Drv.IsReady Then
                ' Créé un nouveau FileSystemWatcher
                Dim watcher As New FileSystemWatcher()
                ' Path à surveiller
                watcher.Path = Drv.Path
                ' Les opérations que l'on surveille
                watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)
                ' Les types de fichier que l'on surveille
                ' watcher.Filter = "*.txt"
                ' On surveille même les sous dossiers
                watcher.IncludeSubdirectories = True
                ' Ajout des événements
                AddHandler watcher.Changed, AddressOf OnChanged
                AddHandler watcher.Created, AddressOf OnChanged
                AddHandler watcher.Deleted, AddressOf OnChanged
                AddHandler watcher.Renamed, AddressOf OnRenamed
                ' On commence le watcher
                watcher.EnableRaisingEvents = True
            End If
        Next

gege1505 · Answer

ça change strictement rien.
J'ai toujours fait avec FileSystemObject et ça a toujours marché, pour preuve, je place MsgBox(Drv.Path) dans mon code dans la boucle, et ça m'affiche bien tous mes disques les uns après les autres.

Mais bon je vais quand même essayer avec IO, peut être que dans ce cas précis, ça a son importance.

Utilisateur anonyme · Answer

Je te donne un indice :
For Each drv As IO.DriveInfo In IO.DriveInfo.GetDrives

Utilisateur anonyme · Answer

Tu es sûr de ton NotifyFilter ?

gege1505 · Answer

Merci, ça venait bien de là :(
La solution :


 Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
        Dim d As DriveInfo
        For Each d In allDrives
            If d.IsReady = True Then
                ' Créé un nouveau FileSystemWatcher
                Dim watcher As New FileSystemWatcher()
                ' Path à surveiller
                MsgBox(d.RootDirectory.FullName)
                watcher.Path = d.RootDirectory.FullName
                ' Les opérations que l'on surveille
                watcher.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)
                ' Les types de fichier que l'on surveille
                ' watcher.Filter = "*.txt"
                ' On surveille même les sous dossiers
                watcher.IncludeSubdirectories = True
                ' Ajout des événements
                AddHandler watcher.Changed, AddressOf OnChanged
                AddHandler watcher.Created, AddressOf OnChanged
                AddHandler watcher.Deleted, AddressOf OnChanged
                AddHandler watcher.Renamed, AddressOf OnRenamed
                ' On commence le watcher
                watcher.EnableRaisingEvents = True
            End If
        Next

Utilisateur anonyme · Answer

Oui CreateObject est à proscrire

Plusieurs Path à surveiller pour un FileSystemWatcher - Surveiller tout l'ordina

11 réponses

Votre réponse

Discussions similaires