Question

I’m writing a simple vb6 button which tests the access of the registry values.

I have the following:

Private Function registry_read(key_path, key_name) as variant

Dim registry as object
set registry = CreateObject("WScript.shell")
registry_read = registry.regread(key_path & key_name)
End function 

Private Sub Command1_Click()
MsgBox registry_read("HKEY_LOCAL_MACHINE\SOFTWARE\PROCESS\frmMain_Values\", "Version")
end Sub

I have Project Menu -> References
and select Microsoft WMI Scripting V1.1 Library selected
and Windows Script Host Object Model referenced

however my msgbox is still coming up blank. I did check the registry path and it is correct. any ideas?

thanks in advance.

Answer 1

You need to comment out the line ‘on error resume next’ while you are developing. If an error is occurring, you will not be able to see the details. It could be not found or access denied etc.

Also there are two ways to reference an object. Early binding ie Dim rs as new adobdb.recordset and late binding set rs = CreateObject("Adodb.recordset"). The first method (early binding) forces you to declare a reference and the second (late) does not. There are advantages and disadvantages to both (ie early binding is faster, gives intellisense, easier debugging, etc) http://word.mvps.org/faqs/interdev/earlyvslatebinding.htm