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
|