إنشاء نسخة إحتياطية

Backup

'Database name is Metal.mdb
		'Save file dialog is SFD

		Dim strMessage As String = _
		MessageBox.Show("Are you Sure you want to backup database ?", "Backup", MessageBoxButtons.YesNo)
		If strMessage = vbNo Then strMessage = Nothing : Exit Sub

		Try

			SFD.FileName = "Metal.mdb"
			SFD.Filter = "Data files (*.mdb)|*.mdb"

			SFD.ShowDialog()

			If SFD.FileName <> "" Then

				SFD.FileName = "Metal.mdb"
				Dim destFilename As String = SFD.FileName
				System.IO.File.Copy(Application.StartupPath & "\Metal.mdb", destFilename, True)

				MessageBox.Show("Backup successful", "Backup")


			End If
		Catch ex As Exception
			MessageBox.Show(ex.Message, ex.Source)
		Finally
			strMessage = Nothing
		End Try

 Dim ofdRestore As New OpenFileDialog

		Dim strMessage As String = _
			   MessageBox.Show("Are you Sure you want to restore database ?", "Restore", _
			   MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
		If strMessage = vbNo Then strMessage = Nothing : Exit Sub

		Try

			ofdRestore.Filter = "Data files (*Metal.mdb)|*Metal.mdb"
			ofdRestore.ShowDialog()

			If ofdRestore.FileName <> "" Then

				ofdRestore.FileName = "Metal.mdb"
				Dim destFilename As String = ofdRestore.FileName
				System.IO.File.Copy(destFilename, Application.StartupPath & "\Metal.mdb", True)

				MessageBox.Show("Restore successful", "Restore")

			End If
		Catch ex As Exception
			MessageBox.Show(ex.Message, ex.Source)
		Finally
			ofdRestore = Nothing

		End Try

بالتوفيق :D

شكراً لك اخي الكريم

وجزاك الله خير الجزاء على هذا الكود

صار لي فتره ادور عليه

شكراً لك اخي الكريم