Reading the Registry
 

I would like my application to read the registry each time it opens to
confirm that "HKEY_CURRENT_USER\Software\[my application]\[my RegEntry]
exists. I read JW's explanation but am struggling to make it fit my purpose:
If [my RegEntry] exists, then open application, else MsgBox "Sorry" close
application. Can someone please advise.

Thank you.
Jim Kobzeff

Reading the Registry
 

Here is an example

Dim oWSH As Object
Dim sResult

Set oWSH = CreateObject("WScript.Shell")


On Error Resume Next

sResult = oWSH.RegRead("HKCU\Software\myApp\myKey\")
If Err.Number < 0 Or sResult = "" Then
MsgBox "No valid key"
Me.Close savechanges:=False
End If
Err.Clear

On Error GoTo 0



--

HTH

RP
(remove nothere from the email address if mailing direct)


"JK" wrote in message news:4OpWd.25746$QQ3.1671@trnddc02...
I would like my application to read the registry each time it opens to
confirm that "HKEY_CURRENT_USER\Software\[my application]\[my RegEntry]
exists. I read JW's explanation but am struggling to make it fit my
purpose:
If [my RegEntry] exists, then open application, else MsgBox "Sorry" close
application. Can someone please advise.

Thank you.
Jim Kobzeff