by Angsuman Banerji (23 Submissions)
Category: Registry
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 4th January 2008
Date Added: Mon 8th February 2021
Rating: (1 Votes)
To Get All The SubKeys of a Key
API Declarations
Dim sKeys() As String, iKeyCount As Long
.ClassKey = HKEY_LOCAL_MACHINE
.SectionKey = "Software"
.EnumerateSections(sKeys(), iKeyCount)
For iKey = 1 To iKeyCount
Debug.Print sKeys(iKey)
Next iKey
End With