Discussion :

[liocifer]

Re,

Me revoilà.

Existe-t' il une commande pour tester une clé de la base de registre du style :

If KeyExist("HKLM\Software\.......") qui est une commande KIXtart.


Merci.


Cordialement.

[SfJ5Rpw8]

en lisant la clef.. et utilisant le gestionnaire d'erreur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
msgbox ExisteCle("HKEY_CURRENT_USER\Software\Adobe\Acrobat Reader\8.0\Annots\bStampsPaletteInvisibled")
msgbox ExisteCle("HKEY_CURRENT_USER\Software\Adobe\Acrobat Reader\8.0\Annots\bStampsPaletteInvisible")
 
 
Function ExisteCle( stKey)
On Error Resume Next
	Dim WshShell
	Set WshShell = WScript.CreateObject("WScript.Shell")
	WshShell.RegRead stKey
	ExisteCle = (Err = 0)
End function

[ced600]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ExisteCle = (Err = 0)

Est ce bien l'équivalent de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If (Err.Number = 0) Then
        ExisteCle = True
Else
        ExisteCle = False
End If

Si oui, certes ta façon de faire est plus rapide, mais je considère que placer le If dans le code est mieux et permet d'éviter certaines erreurs de lecture de son code.