Click here to Skip to main content
Click here to Skip to main content

Get the registry keys recursively

, 7 Oct 2005
Rate this:
Please Sign up or sign in to vote.
Get the registry keys recursively
  • <A href="GetRegistryKeys/getregistrykeys.zip"></A><A href="GetRegistryKeys/getregistrykeys.zip">Download source files - 47 Kb</A> 

Introduction

If you need to get the registry keys recursively you can use this function. This fills the textbox with the registry key and all inside.

The usual imports:

Imports Microsoft

Imports Microsoft.Win32

Imports Microsoft.Win32.Registry

The code is generated by a call:

</FONT></FONT>
' example: SOFTWARE\Microsoft\Windows\CurrentVersion\Run

Dim key As String = txtKey.Text

TextBox1.Text = ""

TextBox1.Text = GetMyStrings(key)

This works for the HKEY_LOCAL_MACHINE main key. You can easily change to get the others.

First you open the main key with this:

</FONT></FONT>
Dim i As Integer

Dim k As String = key & vbCrLf

Dim k1 As String = ""

Dim R As Microsoft.Win32.RegistryKey = Registry.LocalMachine.OpenSubKey(key)

Dim a() As String = R.GetSubKeyNames

The R var opens the key and now we can get those subkeynames to an array. And now it is time to read all values inside this key with:

k += GetMyKeys(key)

This function reads those values and returns a string with it.

The secret for this to recursively works is in the GetMyStrings function. Let's see it:

</FONT></FONT></FONT></FONT>
For i = 0 To a.Length - 1

k1 = key & "\" & a(i)

k += k1 & vbCrLf

If Registry.LocalMachine.OpenSubKey(k1).SubKeyCount >
k += GetMyStrings(k1)

End If

Next

Let's go key by key and check if there are another keys inside this one and if there are, just call this function recursively. The new parameter is the new key. And the function just goes and do the work.

 

License

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here

Share

About the Author

Adelino Araújo

Portugal Portugal
No Biography provided

Comments and Discussions

 
GeneralMy vote of 1 PinmvpDave Kreskowiak10-Nov-09 7:30 
GeneralSource code PinmemberVitaly7-Oct-05 22:35 
source code not exist !
AnswerRe: Source code PinmemberAdelino Araújo12-Oct-05 11:46 
GeneralRe: Source code PinadminChris Maunder16-Oct-05 10:11 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Mobile
Web03 | 2.8.141022.1 | Last Updated 7 Oct 2005
Article Copyright 2005 by Adelino Araújo
Everything else Copyright © CodeProject, 1999-2014
Terms of Service
Layout: fixed | fluid