Bonjour,
Voici "ma"synthèse d'accès au registre avec
- count / affichage / création / accès read only de "répertoires-noeuds", clés
- ajout / modif de valeurs ...
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
'
' Création et/ou accès à valeurs dans un clé de registre en HKEY_CurrentUser/Software/JPM/FSL
'
'
Dim subKeyName As String
Dim tempKey As RegistryKey
Dim MyRepertoire As RegistryKey ' JPM
Dim MyKey As RegistryKey ' FSL
Dim MyNoeud As RegistryKey = Registry.CurrentUser.OpenSubKey("Software", True) ' true pour accès en écriture
If MyNoeud.SubKeyCount > 0 Then
For Each subKeyName In MyNoeud.GetSubKeyNames()
tempKey = MyNoeud.OpenSubKey(subKeyName) 'accès sans écriture
If tempKey.Name.ToString.EndsWith("JPM") Then
MessageBox.Show("Le répertoire " & tempKey.Name.ToString & " existe")
MyRepertoire = MyNoeud.OpenSubKey("JPM", True)
Else
MyRepertoire = MyNoeud.CreateSubKey("JPM", True)
End If
Next
Else
MyRepertoire = MyNoeud.CreateSubKey("JPM", True)
End If
If MyRepertoire.SubKeyCount > 0 Then
For Each subKeyName In MyRepertoire.GetSubKeyNames()
tempKey = MyRepertoire.OpenSubKey(subKeyName) 'accès sans écriture
If tempKey.Name.ToString.EndsWith("FSL") Then
MessageBox.Show("La clé " & tempKey.Name.ToString & " existe")
MyKey = MyRepertoire.OpenSubKey("FSL", True)
Else
MyKey = MyRepertoire.CreateSubKey("FSL", True)
End If
Next
Else
MyKey = MyRepertoire.CreateSubKey("FSL", True)
End If
' adaptation des valeurs dans HKEY_CurrentUser/Software/JPM/FSL
MyKey.SetValue("Lecteur1", "Françoise")
MyKey.SetValue("Lecteur2", "Jean-Paul")
MyKey.SetValue("GestionPrix", "Oui")
MyKey.SetValue("FrontPage", "Films-Alpha")
End Sub
Merci de l'aide
JPM