• Home
 · 
• Registry
 · 
• Easy to use functions to take advantage of the export and import abilities of Microsoft RegEdit to

Easy to use functions to take advantage of the export and import abilities of Microsoft RegEdit to

Easy to use functions to take advantage of the export and import abilities of Microsoft RegEdit to export or import Registry keys using

Rate Easy to use functions to take advantage of the export and import abilities of Microsoft RegEdit to

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Free to distribute!

'####################################################################
'######### PUT THIS CODE INTO YOUR FORM CONTROL PROCEDURES. #########
'####################################################################

'###### To Export Registry Keys ######
ExportRegistryUsingRegEdit "THE REGISTRY KEY YOU WANT TO EXPORT", "FILENAME THAT YOU WANT TO EXPORT TO", "TITLE OF THE PROGRAM IN WHICH YOU ARE USING THIS CODE IN, USED IN TITLE OF MESSAGE BOX", "WHAT YOU WANT THE MESSAGE BOX TO SAY UPON A SUCCESSFUL EXPORT"

'###### To Import Registry Keys ######
ImportRegistryUsingRegEdit "FILENAME THAT YOU WANT TO IMPORT FROM", "TITLE OF THE PROGRAM IN WHICH YOU ARE USING THIS CODE IN, USED IN TITLE OF MESSAGE BOX"

'####################################################################



'#####################################################################
'############## PUT THIS CODE INTO A BAS FILE (MODUAL). ##############
'#####################################################################

Public Sub ExportRegistryUsingRegEdit(RegistryKey As String, ExportFileName As String, NameOfTheProgram As String, MsgBoxMessage As String)
  run = Shell("regedit /e " & Chr(34) & ExportFileName & Chr(34) & " " & Chr(34) & RegistryKey & Chr(34))
  MsgBox MsgBoxMessage, 64, NameOfTheProgram
End Sub

Public Sub ImportRegistryUsingRegEdit(ImportFileName As String, NameOfTheProgram As String)
  MsgBox "You will be presented with a message box asking if you want to add the information contained in " & Chr(34) & ImportFileName & Chr(34) & " to the registry." & vbCr & "" & vbCr & "Click the Yes button to import the Registry file.", 64, NameOfTheProgram
  run = Shell("regedit " & Chr(34) & ImportFileName & Chr(34))
End Sub

'####################################################################