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...
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.