بک آپ گرفتن(export) از رجیستری با کد نویسی

[محمد ذبیحی نژاد]

سلام
چگونه با کد نویسی می شه از یک یا چند کلید رجیستری بک آپ گرفته و در یک فایل reg.* ذخیره کرد
همچنین کد Import کردن از فایل به رجیستری را هم لطف کنید ممنون می شم
با تشکر

[bitasoft.ir]

سلام
چگونه با کد نویسی می شه از یک یا چند کلید رجیستری بک آپ گرفته و در یک فایل reg.* ذخیره کرد
همچنین کد Import کردن از فایل به رجیستری را هم لطف کنید ممنون می شم
با تشکر

سلام
ببینین با این کد می تونین این کار رو انجام بدین:



Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim zip As String = "D:\Instalki\Zip_DLLs\7z.dll"
SevenZipExtractor.SetLibraryPath(zip)
SevenZipCompressor.SetLibraryPath(zip)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button2.Enabled = False
BackgroundWorker1.RunWorkerAsync()
End Sub

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
ExtractFile()
End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
Button2.Enabled = True
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OpenFileDialog1.ShowDialog()
TextBox1.Text = OpenFileDialog1.FileName
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Button4.Enabled = False
BackgroundWorker2.RunWorkerAsync()
End Sub

Private Sub BackgroundWorker2_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker2.DoWork
ArchiveFile()
End Sub

Private Sub BackgroundWorker2_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker2.RunWorkerCompleted
Button4.Enabled = True
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
OpenFileDialog2.ShowDialog()
TextBox2.Text = OpenFileDialog2.FileName
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Button6.Enabled = False
BackgroundWorker3.RunWorkerAsync()
End Sub

Private Sub BackgroundWorker3_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker3.DoWork
ArchiveFolder()
End Sub

Private Sub BackgroundWorker3_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker3.RunWorkerCompleted
Button6.Enabled = True
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
FolderBrowserDialog1.ShowDialog()
TextBox3.Text = FolderBrowserDialog1.SelectedPath
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
FolderBrowserDialog1.ShowDialog()
TextBox1.Text = FolderBrowserDialog1.SelectedPath
End Sub

'PROCEDURES======================================= ================================================== ==================

Sub ExtractFile()
Dim ext As New SevenZipExtractor(TextBox1.Text)
ext.ExtractArchive(TextBox1.Text.Remove(TextBox1.T ext.LastIndexOf("\"), TextBox1.Text.Substring(TextBox1.Text.LastIndexOf("\")).Length))
End Sub

Sub ArchiveFile()
Dim sZipFile As String = TextBox2.Text
sZipFile = sZipFile.Remove(sZipFile.LastIndexOf("."), sZipFile.Substring(sZipFile.LastIndexOf(".")).Length)
sZipFile = sZipFile & ".7z"
Dim arch As New SevenZipCompressor()
arch.CompressFiles(sZipFile, TextBox2.Text)
End Sub

Sub ArchiveFolder()
Dim sZipFile As String = TextBox3.Text & ".7z"
Dim arch As New SevenZipCompressor()
arch.IncludeEmptyDirectories = True
arch.DirectoryStructure = True
arch.EncryptHeaders = True
arch.PreserveDirectoryRoot = True
arch.CompressDirectory(TextBox3.Text, sZipFile)
End Sub
End Class