Desarrollo y diseño

Trabajar con el registro en VB.net

S
sc4sg #1 Dic '06

Hola.. tengo un problemilla.. el caso es que he de hacer que en el registro se guarden unos "Nombres", estos nombres los pondre en Carpetas de Registro, cada nombre tiene x propiedades con sus x valores.

El caso es que para que mi programa sepa que carpetas mirar.. etc, tengo que crear claves de registro como "numero de nombres" y "nombre0", "nombre1".

La solución a esto la sé... tengo que sacar las carpetas que hay dentro de una ruta.. el problema es como.. he estado mirando y tal y bueno he llegado a sacar la lista de carpetas de hey current user o esas.. las principales, el caso es que no consigo sacar el listado en las claves que usa mi programa(Esta metido dentro de Software etc).

¿Alguien sabe como realizar un listado en una subrama?.

IS4kO
IS4kO #2 Dic '06

Module Module1
Sub Main()
guardar()
' Si no existe, usar un valor ficticio
Console.WriteLine(leer((New DateTime(2004, 1, 1)).ToString("dd/MM/yyyy")))
' Console.WriteLine(leer())
Console.ReadLine()
End Sub

Private Sub guardar()
    ' guarda un valor en el registro usando SaveSetting
    SaveSetting("registroVBA", "PruebaVB", "Fecha", DateTime.Now.ToString("dd/MM/yyyy"))
End Sub

Private Function leer() As String
    Return GetSetting("registroVBA", "PruebaCS", "Fecha")
End Function
Private Function leer(ByVal sDefault As String) As String
    Return GetSetting("registroVBA", "PruebaCS", "Fecha", sDefault)
End Function

End Module

S
sc4sg #3 Dic '06

se leer y escribir en el registro el problema lo tengo al sacar el listado de carpetas que hay dentro de otra carpeta, o el listado de claves.

creo q es esto:

Visual Basic

Imports System
Imports Microsoft.Win32
Imports Microsoft.VisualBasic

Public Class Example
Public Shared Sub Main()
' Delete and recreate the test key.
Registry.CurrentUser.DeleteSubKey("RegistryOpenSubKeyExample", False)
Dim rk As RegistryKey = Registry.CurrentUser.CreateSubKey("RegistryOpenSubKeyExample")
rk.Close

    ' Obtain an instance of RegistryKey for the CurrentUser registry 
    ' root. 
    Dim rkCurrentUser As RegistryKey = Registry.CurrentUser

    ' Obtain the test key (read-only) and display it.
    Dim rkTest As RegistryKey = rkCurrentUser.OpenSubKey("RegistryOpenSubKeyExample")
    Console.WriteLine("Test key: {0}", rkTest)
    rkTest.Close
    rkCurrentUser.Close

    ' Obtain the test key in one step, using the CurrentUser registry 
    ' root.
    rkTest = Registry.CurrentUser.OpenSubKey("RegistryOpenSubKeyExample")
    Console.WriteLine("Test key: {0}", rkTest)
    rkTest.Close

    ' Obtain the test key in read/write mode.
    rkTest = Registry.CurrentUser.OpenSubKey("RegistryOpenSubKeyExample", True)
    rkTest.SetValue("TestName", "TestValue")
    Console.WriteLine("Test value for TestName: {0}", rkTest.GetValue("TestName"))
    rkTest.Close
End Sub 'Main

End Class 'Example

Usuarios habituales