Sección de códigos , trucos y ejemplos para visual basic

428 - Comandos del regedit para exportar e importar una rama del Registro

Ejemplo que usa la función shell de vb, junto dos parámtros pasados como argumentos al programa regedit

Este ejemplo tiene dos funciones, una permite hacer un backup de una rama completa del registro , creando un archivo .reg en disco.

La función se llama Backup_Reg y tiene dos parámetros :

Private Sub Backup_Reg(rama As String, pathArchivoReg As String)

El primer argumento es la rama que se va a exportar. El segundo es el path donde crear el archivo .reg con los datos de esa rama

La otra función , hace lo contrario, y permite resturar o ingresar los datos de un archivo .reg. La función se llama Restaurar_Reg, y tiene como parámetro la ruta del .reg

Private Sub Restaurar_Reg(pathArchivoReg As String)

Formulario de Ejemplo

Colocar los siguientes controles en un form como se ve en este gráfico

Un Text1 para indicar la rama a exportar
Un Text2 para el archivo .reg que se creará como backup en el disco
Un Command1
Un text3 para indicar la ruta del .reg a importar al regedit
Un Command2

Código fuente en el form

Option Explicit ' backup de la rama a un archivo .reg ''''''''''''''''''''''''''' Private Sub Backup_Reg(rama As String, pathArchivoReg As String) ' si no existe el .reg lo crea, por que si no el _ api GetShortPathName devuelve una cadena nula cuando un archivo no existe If Len(Dir(pathArchivoReg)) = 0 Then Open pathArchivoReg For Output As #1 Close End If Me.MousePointer = vbHourglass ' exporta la rama con el parámetro /e en la ruta indicada Shell "regedit /e " & Chr(34) & pathArchivoReg & _ Chr(34) & " " & Chr(34) & rama & Chr(34) Me.MousePointer = 0 If Err.Number <> 0 Then MsgBox Err.Description If Len(Dir(pathArchivoReg)) <> 0 Then Kill pathArchivoReg End If Else MsgBox "Archivo reg creado en :" & pathArchivoReg, vbInformation End If End Sub ' restaura el .reg ''''''''''''''''''''''''''' Private Sub Restaurar_Reg(pathArchivoReg As String) If Len(Dir(pathArchivoReg)) = 0 Then MsgBox "El archivo .REG para introducir en el registro " & _ ", no existe. Verificar la ruta", vbCritical Exit Sub End If If pathArchivoReg <> "" Then Me.MousePointer = vbHourglass Shell "regedit /s " & Chr(34) & pathArchivoReg & Chr(34) Me.MousePointer = 0 MsgBox "Archivo de registro introducido correctamente", vbInformation Else MsgBox "error con el path del .reg", vbCritical End If End Sub Private Sub Command1_Click() Dim rama As String ' le envia la rama a exportar, y la ruta donde crear el .reg Call Backup_Reg(Text1.Text, Text2.Text) End Sub Private Sub Command2_click() ' le pasa el path del .reg Call Restaurar_Reg(Text3.Text) End Sub Private Sub Form_Load() Command1.Caption = "Exportar .reg" Command2.Caption = "Importar .reg" End Sub

Nota: este código fuente está probado utilizando la versión 5.1 del editor de registro de windows en una plataforma windows xp.

Por lo tanto en una versión distinta del regedit, habria que ver si los parámetros

regedit /e y regedit /s

siguen siendo los mismos o cambian

Enlaces relacionados

Módulo de código para escribir y leer datos en el registro

Buscar en Recursos vb