.NET 4.x Удаление всех записей в реестре, кроме определенных - Visual Basic .NET

Формулировка задачи:

Приветствую, товарищи. Существует ветка в реестре: HKEY_Current_User\Software\D2MO\ А в ней собрались папочки, созданные Data.Today, что привело к виду: HKEY_Current_User\Software\D2MO\08.06.2016 HKEY_Current_User\Software\D2MO\07.06.2016 HKEY_Current_User\Software\D2MO\06.06.2016 HKEY_Current_User\Software\D2MO\... HKEY_Current_User\Software\D2MO\... HKEY_Current_User\Software\D2MO\... Вопрос: как удалить все эти "папки" кроме той, что актуальна Data.Today?

Решение задачи: «.NET 4.x Удаление всех записей в реестре, кроме определенных»

textual
                            Листинг программы 
                        

                            Using rootKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\D2MO", true)
    For Each subKeyName As String In rootKey.GetSubKeyNames()
        If subKeyName <> "нужное значение" Then
            rootKey.DeleteSubKey(subKeyName)
        End If
    Next
End Using
                        