Option Explicit
Dim readReg As Registry
Dim writeReg As Registry
Dim keyExists As Boolean
Dim I As Integer
Dim wKeys As RegKey
Dim rKeys As RegKey
Dim hiveR As RegKey
Dim hiveW As RegKey
Dim KeyToAdd As String
Dim KeyToFind As String
Public Sub main()
KeyToAdd = "Testing"
' The following key should be present on all systems.
KeyToFind = "Microsoft\Direct3D\Drivers\Direct3D HAL"
Set writeReg = New Registry
Set readReg = New Registry
Set readReg = New RegObj.Registry
Set writeReg = New RegObj.Registry
Set hiveR = readReg.RegKeyFromString("\HKEY_LOCAL_MACHINE\SOFTWARE\")
Set rKeys = hiveR.SubKeys(KeyToFind)
Set hiveW = writeReg.RegKeyFromString("\HKEY_LOCAL_MACHINE\SOFTWARE\")
For I = 1 To hiveR.SubKeys.Count
If hiveR.SubKeys(I).Name = KeyToAdd Then
keyExists = True
Exit For
End If
Next
' If the key already exists, do not modify it.
' This may be changed as needed.
If Not keyExists Then
hiveW.SubKeys.Add (KeyToAdd)
hiveW.SubKeys.Reset
Set wKeys = hiveW.SubKeys(KeyToAdd)
For I = 1 To rKeys.Values.Count
wKeys.Values.Add rKeys.Values(I).Name, rKeys.Values(I).Value, _
rKeys.Values(I).Type
Next
End If
End Sub