Getting all sub keys from a registry value

[Stanuk]

Hi there,

Trying to do something I hope would be very simple (but maybe not!)

I am reading a registry key using the following code:

 Dim registry As Object


    Set registry = CreateObject("WScript.Shell")


    Registry_Read = registry.RegRead(Key_Path & Key_Name)
   
   
End Function



Private Sub cmdgetemails_Click()
   

MsgBox Registry_Read("HKEY_CURRENT_USER\software\microsoft\windows\currentversion\unreadmail", "")

End Sub

What I want to do now is read all the sub keys in that particular key.. but im finding it extremely hard, is there is a simple way of doing this?

Many thanks

[schoolbusdriver]

is there is a simple way of doing this?

Debateable

WSH doesn't support registry enumeration. You can use WMI (.EnumKey), RegEnumKeyEx, SHEnumKeyEx, SHRegEnumUSKey or ZwEnumerateKey.

WMI is easiest. The rest are more reliable as they cannot be disabled by the user.

[Merri]

Since the sample was missing:

Option Explicit

Private Sub Form_Load()
    Dim Registry As Object, varKey As Variant, varKeys As Variant
    Set Registry = GetObject("winmgmts:\\.\root\default:StdRegProv")
    Registry.EnumKey &H80000001, "software\microsoft\windows\currentversion\unreadmail", varKeys
    For Each varKey In varKeys
        Debug.Print varKey
    Next
End Sub

MSDN: EnumKey method of the StdRegProc class

[Stanuk]

That worked a treat, thankyou very much :-)