Re,
Me revoilà.:D
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.
Version imprimable
Re,
Me revoilà.:D
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.
en lisant la clef.. et utilisant le gestionnaire d'erreur :
Code:
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
8OCode:ExisteCle = (Err = 0)
Est ce bien l'équivalent de :
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.Code:
1
2
3
4
5 If (Err.Number = 0) Then ExisteCle = True Else ExisteCle = False End If