Как проверить, удалена ли папка реестра или нет - PullRequest
0 голосов
/ 26 декабря 2011

Я создал папку и подпапку внутри нее и пытаюсь проверить, существует ли папка в редакторе реестра.

Вот как я создал:

Dim  kstrRegSubKeyName As String = "CompanyName\\SoftwareName"
Dim oReg As Microsoft.Win32.RegistryKey
oReg = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software", True)
oReg = oReg.CreateSubKey(kstrRegSubKeyName)
oReg = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software\\" & kstrRegSubKeyName)

Теперь мне нужно проверить, удалена ли эта папка CompanyName или нет, и отобразить сообщение.

Как мне это сделать?

1 Ответ

1 голос
/ 26 декабря 2011

Я бы пошел с чем-то вроде:

     Dim rkKey As RegistryKey = Nothing
     Dim Value As New String("CompanyName")
     Dim MainKey as RegistryKey = Registry.CurrentUser.OpenSubKey("Software", True)  
    rkKey = MainKey.OpenSubKey(value, True)
    'check to see if the subkey exists
    If rkKey Is Nothing Then 'it doesnt exist
        'Do stuff
    Else
      'Do other stuff
    End If
...