This function returns the registry keys of the external provider with the specified code.
object.GetRegistryKeysByCode(aKeyCode)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISExternalProvider interface |
|
aKeyCode |
In, Required | string |
The code of the registry key |
Display the number of the external provider's registry keys with the specified code.
Dim aExtProvider
Dim aCode
Dim aKeyCode
Dim aAllRegKeys
Dim aMessage
aCode = "1"
aKeyCode = "MSP M01"
Set aExtProvider = Profile.LoadExternalProvider(aCode)
if aExtProvider.ID = 0 then
Profile.MsgBox("No external provider with the specified code")
exit sub
end if
set aAllRegKeys = aExtProvider.GetRegistryKeysByCode (aKeyCode)
aMessage = aMessage & vbNewLine & aExtProvider.FullName & vbNewLine &_
" The number of the registry keys with the code '" &_
aKeyCode & "' is " & aAllRegKeys.Count
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Registry Keys can be found in
.