vérification de regkey vb.net

Question

Je ne peux pas obtenir le code suivant pour vérifier si ma regestrykey existe peut aider quelqu'un. l'idée est de vérifier si elle existe, si oui, si rien créer pas, ainsi que sa valeur ...

la clé complète est HKEY_LOCAL_MACHINE \ SOFTWARE \ VTS Advanced \ Offset 2 \ Admin \ Accès

>   If Dir$("HKEY_LOCAL_MACHINE\SOFTWARE\VTS\Advanced Offset 2\Admin", vbDirectory) <> "" Then 

     Else 
      MsgBox(".NET Framework 2.0") 

     End If 

CODE MISE À JOUR:

Dim l_subKeyPath As String = "SOFTWARE\VTS\Advanced Offset 2\Admin\Access" 
Dim l_regKey As RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey(l_subKeyPath, False) 
If (l_regKey Is Nothing) Then 
    'if nothing then key doesn't exists 
    'Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\VTS\Advanced Offset 2\Admin", "ACCESS", "PASSWbORD") 
    MsgBox("yess") 
Else 
    'key exists 
    MsgBox("no") 
End If 

Answer 1

Essayez ceci:

Dim l_subKeyPath as string = "SOFTWARE\VTS\Advanced Offset 2\Admin\Access" 
    Dim l_regKey As RegistryKey = My.Computer.Registry.LocalMachine.OpenSubKey(l_subKeyPath, False) 
    If (l_regKey Is Nothing) Then 
     'if nothing then key doesn't exists 
    else 
     'key exists 
    End If 

MSDN Citation:

RegistryKey.OpenSubKey Method

Si la clé demandée n'existe pas, cette méthode ne renvoie rien au lieu de lancer une exception.

Answer 2

Vous dites "vérifier s'il existe si rien ne le fait sinon le créer, avec sa valeur ...". Si vous définissez une clé, vous devez également créer un nom et ajouter une valeur au nom, vous ne pouvez pas ajouter de valeur à une clé.

Prenez regard sur l'échantillon dans MSDN OpenSubKey