Registry Help - Should be dead easy

[TrAcER]

ok guys, i want to check a key exists if yes then exit sub, but if it dont exist create it and then exit sub.

<vbcode>
Public Sub Check_Reg()
If Registry.LocalMachine.Name = ("SOFTWARE\Trinity Expert Systems plc\Data Migration Script Creator") = True Then
Debug.WriteLine("Key Exists")

Else
Registry.LocalMachine.CreateSubKey("SOFTWARE\Trinity Expert Systems plc\Data Migration Script Creator")
End If
End Sub
</vbcode>


thats what i got, dunno if its right guys, Help me please, tnx guys, u all rule

BTW i am useing .NET

[Jeremy Martin]

not sure if this is the best way but I know it will get it done.

Dim RegKey As RegistryKey
Dim s As String
RegKey = Registry.LocalMachine.OpenSubKey("Software\A", True )
Try 
     s = RegKey.ToString()
Catch 
     RegKey = Registry.LocalMachine.CreateSubKey("Software\A")
End Try

you will also need to import Microsoft.Win32

Jeremy

[Pirate]

This contains more functions & and many flags for Registry use.

[TrAcER]

ok dudes, u guys are mint, i think i got a bit confused as to what i was asking but, how do i create a new string, coz the key is like the folder then there is a string with a value, how to i make a string and give it a value, and then chage the value of the string later

[Musician]

I'll give you my custom function for creating file associations. You should be able to figure it from that:-

Public Function AddAssociation(ByVal fExt As String, ByVal appName As String, ByVal appPath As String) As Boolean 
  Try 
       Dim extKey As RegistryKey = Registry.ClassesRoot.CreateSubKey(fExt) 
       extKey.SetValue("", appName) 
       Dim appKey As RegistryKey = Registry.ClassesRoot.CreateSubKey(appName) 
       appKey.SetValue("", appName & " File") 
       Dim shellKey As RegistryKey = appKey.CreateSubKey("shell") 
       Dim openKey As RegistryKey = shellKey.CreateSubKey("open") 
       Dim commKey As RegistryKey = openKey.CreateSubKey("command") 
       commKey.SetValue("", appPath & " %1") 
       Return true 
   Catch 
       Return False 
   End Try 
End Function

[TrAcER]

sorry, im **** at this i have created a key, how do i create a string:
this is my registry key:
"SOFTWARE\Trinity Expert Systems plc\Data Migration Script Creator"

how do i create a string called NWHome and give it a value of "c:\temp\scripts\cmd\NWHome.cmd"

[TrAcER]

ok chaps got it in the end here it is:

<code>
Imports Microsoft.Win32
Public Class MyClass

Public Sub Make_Reg
Registry.LocalMachine.CreateSubKey("SOFTWARE\Your\Key\Here")
End Sub

Public Sub Make_String
Registry.LocalMachine.CreateSubKey("SOFTWARE\Your\Key\Here").SetValue("Your_String", "Value_Of_Your_String")
End Sub

End Class
</code>

[TrAcER]

Question again: how the hell do i close my open key this dont work

Registry.LocalMachine.OpenSubKey("SOFTWARE\Trinity Expert Systems plc\Data Migration Script Creator\Version").GetValue("Version")

Registry.LocalMachine.Close("SOFTWARE\Trinity Expert Systems plc\Data Migration Script Creator\Version")

help!!!!

[§tudz]

I don't know if you've done it yet.

but I think it's something like:

Registry.LocalMachine.CloseSubKey("SOFTWARE\Trinity Expert Systems plc\Data Migration Script Creator\Version")