Surveillez les modifications de fichiers, dossiers et plein d'autres

Description

Ce zip illustre l'API SHChangeNotifyRegister.

Elle permet d'être averti des changements effectués sur tout fichier, dossier de votre poste.

Disque ajouté, Fichier modifié, supprimé, renommé, Partage réseau ajouté, etc.

Source / Exemple :


Private WithEvents moShellNotifier As ShellNotifier

Private Sub Form_Load()
    Set moShellNotifier = New ShellNotifier
    moShellNotifier.Initialize
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    moShellNotifier.Terminate
End Sub

Private Sub moShellNotifier_Generic(ByVal veEvent As EventConstants, vsParam1 As String, vsParam2 As String)
    Debug.Print  Now, moShellNotifier.EventText(veEvent), vsParam1, vsParam2
End Sub

Conclusion :


La Form n'est là qu'à titre d'exemple...

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.