RegistryRegcreateKey will replace an existing key. Saves an unnessessary read if the existing value is of no further value.

  Hi

  I want to generate a key and a value in the registry. This is easy enough - but I want to check if the key exists before doing this (if it does I dont want to create it) - how can I do this?

  Kind regards

  Siv

RegistryTry something like this:

Sub CreateKey(RegKey,Value)
    Dim Shell
    Set Shell = CreateObject("Wscript.Shell")
    On Error Resume Next
    Err.Raise(Shell.RegRead(RegKey))
    If Len(Err.Description) = 41 Then
        Shell.RegWrite RegKey & "\",Value
    End If
End Sub

Hi
I want to generate a key and a value in the registry. This is easy
enough - but I want to check if the key exists before doing this (if
it does I dont want to create it) - how can I do this?
Kind regards
Siv

RegistryHere is a function written in VBScript that tests a key's existence.

Function KeyExists (key)
Dim key2
 On Error Resume Next
 key2 = WSHShell.RegRead (key)
 If err <> 0 Then
  KeyExists = False
 Else
  KeyExists = True
 End if
End Function

G. Born

Check out the WSH Bazaar at:

www.borncity.de

  Hi

  I want to generate a key and a value in the registry. This is easy enough - but I want to check if the key exists before doing this (if it does I dont want to create it) - how can I do this?

  Kind regards

  Siv