Registry reading error

[Peter John]

I am using the following code to read from and write to the registry.
The writing works fine but reading always fails. Can anyone suggest
what is going wrong?

Imports Microsoft.Win32

Public Class clsRegistry

Private Const conRegKey As String =
"Software\MyCom pany\MyApplicat ion"
Public Sub New()
Dim rgKey As RegistryKey = Registry.Curren tUser
Dim strStr As String

rgKey.OpenSubKe y(conRegKey)
strStr = rgKey.Name
If strStr = "HKEY_CURRENT_U SER" Then
'create the subkey
rgKey.CreateSub Key(conRegKey)
End If
rgKey.Close()
End Sub

Public Function GetProject() As String
Dim rgKey As RegistryKey = Registry.Curren tUser
Dim str As String

rgKey.OpenSubKe y(conRegKey)
str = rgKey.GetValue( "MyKeyVal", "fail")
'always returns "fail"
GetProject = str
rgKey.Close()
End Function

Public Function SetProject(ByVa l str As String) As Boolean
Dim rgKey As RegistryKey = Registry.Curren tUser

rgKey = rgKey.OpenSubKe y(conRegKey, True)
rgKey.SetValue( "MyKeyVal", str)
rgKey.Close()
SetProject = True
End Function
End Class

[Ken Tucker [MVP]]

Hi,

RegistryKey.Ope nSubKey returns a registry key. Here is a quick
example on how to read a key.

Dim MyReg As RegistryKey = Registry.LocalM achine

Dim MyRegKey As RegistryKey

Dim MyVal As String

MyRegKey = MyReg.OpenSubKe y("Software\Mic rosoft\Windows NT\currentVersi on")

MyVal = MyRegKey.GetVal ue("ProductID" )

MyRegKey.Close( )

Ken

--------------------------------

"Peter John" <p.*****@comput er.org> wrote in message
news:51******** *************** ***@posting.goo gle.com...

I am using the following code to read from and write to the registry.
The writing works fine but reading always fails. Can anyone suggest
what is going wrong?

Imports Microsoft.Win32

Public Class clsRegistry

Private Const conRegKey As String =
"Software\MyCom pany\MyApplicat ion"
Public Sub New()
Dim rgKey As RegistryKey = Registry.Curren tUser
Dim strStr As String

rgKey.OpenSubKe y(conRegKey)
strStr = rgKey.Name
If strStr = "HKEY_CURRENT_U SER" Then
'create the subkey
rgKey.CreateSub Key(conRegKey)
End If
rgKey.Close()
End Sub

Public Function GetProject() As String
Dim rgKey As RegistryKey = Registry.Curren tUser
Dim str As String

rgKey.OpenSubKe y(conRegKey)
str = rgKey.GetValue( "MyKeyVal", "fail")
'always returns "fail"
GetProject = str
rgKey.Close()
End Function

Public Function SetProject(ByVa l str As String) As Boolean
Dim rgKey As RegistryKey = Registry.Curren tUser

rgKey = rgKey.OpenSubKe y(conRegKey, True)
rgKey.SetValue( "MyKeyVal", str)
rgKey.Close()
SetProject = True
End Function
End Class