ISExternalProvider.DeleteRegistryKey

Example

Delete the selected registry key of the external provider.

Dim aExtProvider
Dim aCode
Dim aKeyCode
Dim aAllRegKeys
Dim aRegKey
Dim aMessage

aCode = "1"
aRegKeyShortCode = "POI"
Set aExtProvider = Profile.LoadExternalProvider(aCode)

if aExtProvider.ID = 0  then 
  Profile.MsgBox("No external provider with the specified code")
  exit sub   
end if
set aRegKey = aExtProvider.AddRegistryKey(aRegKeyShortCode, "NiceValue") 
aExtProvider.Save
  
set aAllRegKeys = aExtProvider.GetRegistryKeys   
aMessage = aMessage & vbNewLine &_
  "   Registry Keys Count BEFORE DELETING = " & aAllRegKeys.Count
  
set aRegKey = aAllRegKeys.Item(0) 
aExtProvider.DeleteRegistryKey(aRegKey)
  
set aAllRegKeys = aExtProvider.GetRegistryKeys
aMessage = aMessage & vbNewLine &_
  "   Registry Keys Count AFTER DELETING= " & aAllRegKeys.Count    
     
Profile.MsgBox (aMessage)