Vista: Drives me Nuts!

[some1uk03]

This is seriously doing my head in.

Im running XP alongside VISTA on a Virtualization with MS Virtual PC to test the app.

This is my code, very simple: Read Value Data from Registry. If the len >=1 or = vbNullstring then Skip

If Len(RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0))) >= 1 Then GoTo SkipThisOne
If Not RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0)) = vbNullstring Then GoTo SkipThisOne

MsgBox Len(RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0)))
MsgBox RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0))


'''More code


SkipThisOne:

Now guess what the MsgBoxes return: 0 & vbNullstring, but yet again it doesnt go to the SkipThisOne label

This works with XP.

'The Exe also has a manifest inserted with Resource Hacker, to allow admin elevation etc...

[Caskbill]

Hmmm, not sure. Vista is pretty picky about the registry.

Have you thought about setting an intermediate value then evaluating that?

xLength = Len(RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0)))
If xLength >= 1 Then GoTo SkipThisOne

and maybe this will work better....

If IsNull(RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0)))  Then GoTo SkipThisOne

or maybe try an intermediate value here also

If IsNull(RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0)))  Then TempFlag = True else TempFlag = False

If TempFlag then GoTo SkipThisOne

[anhn]

My suggestion:

    Dim sValue As String
    '... ...
    sValue = "" & RGGetKeyValue(theRootKey, regKey & QueryKeys(X), getValues(0))
    If Len(sValue) Then GoTo SkipThisOne
    '... ...
SkipThisOne:

[some1uk03]

Thanx guys but no, no, no... Its still there!!!

Len = 0 but it still goes through when it shouldnt!!