Click here to Skip to main content
13,597,064 members
Click here to Skip to main content
Add your own
alternative version


16 bookmarked
Posted 6 Sep 2005

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/"></A><A href="GetRegistryKeys/">Download source files - 47 Kb</A> 


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:

' 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:

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:

For i = 0 To a.Length - 1

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

k += k1 & vbCrLf

If Registry.LocalMachine.OpenSubKey(k1).SubKeyCount > 0 Then

' recursively step in this function to get all my new keys

' that are in this one. all variables are preserved as normally

' in recursive functions
k += GetMyStrings(k1)

End If


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.



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


About the Author

Adelino Araújo
Portugal Portugal
No Biography provided

You may also be interested in...

Comments and Discussions

GeneralMy vote of 1 Pin
Dave Kreskowiak10-Nov-09 7:30
mvpDave Kreskowiak10-Nov-09 7:30 
GeneralSource code Pin
Vitaly7-Oct-05 22:35
memberVitaly7-Oct-05 22:35 
AnswerRe: Source code Pin
Adelino Araújo12-Oct-05 11:46
memberAdelino Araújo12-Oct-05 11:46 
GeneralRe: Source code Pin
Chris Maunder16-Oct-05 10:11
adminChris Maunder16-Oct-05 10:11 

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

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

Permalink | Advertise | Privacy | Cookies | Terms of Use | Mobile
Web01 | 2.8.180621.3 | Last Updated 7 Oct 2005
Article Copyright 2005 by Adelino Araújo
Everything else Copyright © CodeProject, 1999-2018
Layout: fixed | fluid