Registry Values

[MadCrazyNewbie]

Hey Group,

Im trying to load up some registry Values and display them in Text Box's:

Here is my Code:

Dim RegKeyRead As RegistryKey
'reset the resulting textbox
txtNetworkDevel opmentPath.Text = ""
txtLiveLocalPat h.Text = ""
txtLiveNetworkP ath.Text = ""
'Try to open the given path
RegKeyRead = Registry.Curren tUser.OpenSubKe y("Software\\Ex cellence",
True)
If RegKeyRead Is Nothing Then
'if the path doesn't exist, warn the user
MessageBox.Show ("Error Found")
Exit Sub
End If
'retrieve the subkey and its value (alone with a default value if
the subkey is not found)
"Software\\Exce llence" =
RegKeyRead.GetV alue(txtNetwork DevelopmentPath .Text, "---Not
Found---").ToString
"Software\\Exce llence" = RegKeyRead.GetV alue(txtLiveLoc alPath.Text,
"---Not Found---").ToString
"Software\\Exce llence" =
RegKeyRead.GetV alue(txtLiveNet workPath.Text, "---Not Found---").ToString
'close the key
RegKeyRead.Clos e()

Only problem is I get a Sysntax Error on "Software\\Exce llence".

Could anybody possibly point me in the right direction? also on my Line
"MessageBox.Sho w("Error Found") How could I get it to tell me which Reg Key
was not found?

Many Many Thanks
MCN

[Cor Ligthert]

Hi Mad,

I do it just like this
Dim RegKeyRead As RegistryKey
RegKeyRead = Registry.Curren tUser.CreateSub Key("Software\\ Excellence")

I hope this helps?

Cor

[MadCrazyNewbie]

Sorry Cor,

Im confused? Would I do:

RegKeyRead = Registry.Curren tUser.GetValue( "Software\\Exce llence") =
(txtNetworkDeve lopmentPath.Tex t, "---Not Found---").ToString

Many Thanks Again
MCN

"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:OF******** ******@tk2msftn gp13.phx.gbl...

Hi Mad,

I do it just like this
Dim RegKeyRead As RegistryKey
RegKeyRead = Registry.Curren tUser.CreateSub Key("Software\\ Excellence")

I hope this helps?

Cor

[Cor Ligthert]

Hi Mad,

I thought it was the first Software\\Excel lence that did give the errror,
however as thirth row I have than in a program

pConn = RegKeyRead.GetV alue("ConnStrin g", "").ToStrin g

The second parameter is the default.

Do you understand it when you see this?

Cor

[MadCrazyNewbie]

Sorry Cor i think im confusing you:

I have in My Registry 3 Values under Software\\Excel lence:

1. NetDevPath with Value of "J:\DevDB"
2. LiveLocalPath with a Value of "C:\LocalLiveDB "
3. LiveNetPath with a Value of "J:\LiveDB"

All the following lines give Syntax Errors on "Software\\Exce llence"

"Software\\Exce llence" = RegKeyRead.GetV alue(txtNetwork DevelopmentPath .Text,
"---Not Found---").ToString
"Software\\Exce llence" = RegKeyRead.GetV alue(txtLiveLoc alPath.Text, "---Not
Found---").ToString
"Software\\Exce llence" = RegKeyRead.GetV alue(txtLiveNet workPath.Text,
"---Not Found---").ToString

So Am I correct in thinking?

Dim RegKeyRead As RegistryKey
RegKeyRead = Registry.Curren tUser.GetValue( "Software\\Exce llence") - Loads
up the Reg Area ("Software\\Exc ellence")

But how do I put the NetDevPath key Value into my txtNetworkDevel opmentPath
Text Box, and so on with LiveLocalPath and LiveNetPath?

Many Thanks
MCN
"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..

Hi Mad,

I thought it was the first Software\\Excel lence that did give the errror,
however as thirth row I have than in a program

pConn = RegKeyRead.GetV alue("ConnStrin g", "").ToStrin g

The second parameter is the default.

Do you understand it when you see this?

Cor

[Cor Ligthert]

Hi Mad,

Yes you confusing me, because I do not understand this code.

"Software\\Exce llence" = RegKeyRead.GetV alue(txtNetwork DevelopmentPath .Text, "---Not Found---").ToString

That is something as
"MadCrazy" = "Doing Crazy"

Do you mean
txtNetworkDevel opmentPath.Text = RegKeyRead.GetV alue(NetDevPath ,"----Not
Found---").toString

I get the idea, that it is or very late at your place or that it maybe has
been very late.

Or maybe I see something not.

:-))

Cor

[MadCrazyNewbie]

Hi Cor,

Yer sorry not late is about 12:00 dinner, just been an earlie morning:(

Now I have:

txtNetworkDevel opmentPath.Text = RegKeyRead.GetV alue(NetDevPath , "----Not
Found---").toString
txtLiveLocalPat h.Text = RegKeyRead.GetV alue(LiveLocalP ath, "----Not
Found---").toString
txtLiveNetworkP ath.Text = RegKeyRead.GetV alue(LiveNetwor kPath, "----Not
Found---").toString

But in now Tells me that NetDevPath, LiveLocalPath, & LiveNetworkPath arn`t
Declared, how do I Declare them?

Is it just a Case of:

Dim NetDevPath As RegistaryKey?

Many Thanks
MCN

"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:ue******** ******@TK2MSFTN GP11.phx.gbl...

Hi Mad,

Yes you confusing me, because I do not understand this code.

"Software\\Exce llence" =

RegKeyRead.GetV alue(txtNetwork DevelopmentPath .Text,

"---Not Found---").ToString

That is something as
"MadCrazy" = "Doing Crazy"

Do you mean
txtNetworkDevel opmentPath.Text = RegKeyRead.GetV alue(NetDevPath ,"----Not
Found---").toString

I get the idea, that it is or very late at your place or that it maybe has
been very late.

Or maybe I see something not.

:-))

Cor

[Cor Ligthert]

Hi Mad,

I made them as a dataname, however I asume you want them between quotes,
just as a name.

Cor

[Herfried K. Wagner [MVP]]

* "MadCrazyNewbie " <te**@nospam.co m> scripsit:

'Try to open the given path
RegKeyRead = Registry.Curren tUser.OpenSubKe y("Software\\Ex cellence",

Replace the "\\" with "\" and try again.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[MadCrazyNewbie]

Cheers Cor & Herfried, its working like dream now:)

Many Thanks
MCN

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:2g******** ***@uni-berlin.de...

* "MadCrazyNewbie " <te**@nospam.co m> scripsit:

'Try to open the given path
RegKeyRead =

Registry.Curren tUser.OpenSubKe y("Software\\Ex cellence",
Replace the "\\" with "\" and try again.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>