[VB6] Kijken of een registerwaarde bestaat.

[Saven]

Hallo, (alweer een topic van mij).
Ik heb een probleempje met Visual Basic 6. Ik wil namelijk kijken of een registerwaarde bestaat. Zonee, dan wil ik die aanmaken.
Met google wordt ik niks wijzer, en zelf proberen heeft ook geen effect.

Visual Basic .NET:

    Set WSo = CreateObject("wscript.shell")
    
    If WSo.RegRead("HKCU\Software\SavenChat\buzzers") = "" Then
        WSo.RegWrite "HKCU\Software\SavenChat\buzzers", "1"
    End If
    
    If WSo.RegRead("HKCU\Software\SavenChat\formflash") = "" Then
        WSo.RegWrite "HKCU\Software\SavenChat\formflash", "1"
    End If
    
    If WSo.RegRead("HKCU\Software\SavenChat\privechat") = "" Then
        WSo.RegWrite "HKCU\Software\SavenChat\Privechat", "1"
    End If

Ik krijg de volgende melding:


bij de code:

Visual Basic .NET:

If WSo.RegRead("HKCU\Software\SavenChat\buzzers") = "" Then

Weet iemand hoe ik wel kan checken of een registerwaarde bestaat?

[Brahiewahiewa]

http://msdn2.microsoft.com/en-us/library/aa390388.aspx

[Saven]

Brahiewahiewa schreef op woensdag 24 oktober 2007 @ 00:06:
http://msdn2.microsoft.com/en-us/library/aa390388.aspx

dat is voor het .net framework ofz?
werkt namelijk niet als ik

code:

If WSo.EnumValues("HKCU\Software\SavenChat\buzzers") = "" Then

doe (is geen object van WSo ofzo)

[ Voor 30% gewijzigd door Saven op 24-10-2007 00:18 ]

[Reptile209]

Gebruikt het voorbeeldje onderaan deze pagina. Daarmee zou je moeten kunnen kijken of een key bestaat of niet.

[Brahiewahiewa]

Saven schreef op woensdag 24 oktober 2007 @ 00:11:
[...]dat is voor het .net framework ofz?
werkt namelijk niet als ik

code:

If WSo.EnumValues("HKCU\Software\SavenChat\buzzers") = "" Then

doe (is geen object van WSo ofzo)

Tja, als dat te moeilijk voor je is . . .
De error die je krijgt, betekent volges mijn dat RegRead de value nie kan lezen, omdatie niet bestaat.
't Enige wat je dus moet doen is die error afvangen

Visual Basic:

Set WSo = CreateObject("wscript.shell")

For strValue in Array ( "buzzers", "formflash", "privechat" )

    On Error Resume Next
    dummy = WSo.RegRead("HKCU\Software\SavenChat\" & strValue )        

    If Err Then

        WSo.RegWrite "HKCU\Software\SavenChat\" & strValue, "1" 

    End If 

    On Error GoTo 0

Next

[Saven]

Dat met Err kende ik nog niet maar bedankt