RegKey checken

[bn2vs]

Hey,

Ik heb deze code

    Private Sub clearRegisterSettings()
        ' Delete the key when it exists
        On Error Resume Next
        Registry.CurrentUser.DeleteSubKeyTree(Options.RegKeyPath)
    End Sub

Hoe kan ik er van maken

if mnRegKey-bestaat then
 Registry.CurrentUser.DeleteSubKeyTree(Options.RegKeyPath)
end if

Alvast bedankt

Cheers
BN

 

[WarnedGraph]

Een mogelijke oplossing:

        If (CurrentUser.GetSubKeyNames().Contains(path)) Then
            CurrentUser.DeleteSubKeyTree(path)
        End If

 

[bn2vs]

Mn VS vind method Contains niet.

Dit gaat over VB8/9 met .Net 2.0 (had ik er bij moeten zetten maar was vergeten).

 

[WarnedGraph]

Schrijf even snel je eigen contains methode

Private Function checkContain(lijst() as string, text as string) as boolean
     for i as integer = 0 to lijst.length - 1
          if(lijst(i).equals(text)) then
               return true
          end if
     next
     return false
End Function

dan wordt mijn code:

If (checkContain(CurrentUser.GetSubKeyNames(), path) Then
     CurrentUser.DeleteSubKeyTree(path)
End If

 

[bn2vs]

oke, thnx

vraag opgelost.