Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim openf As New OpenFileDialog()
openf.Filter = "Access Database |*.mdb;*.accdb"
If openf.ShowDialog() = DialogResult.OK Then
TextBox1.Text = openf.FileName
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim savef As New SaveFileDialog()
savef.Filter = "Backup File|*.bak"
savef.FileName = "Backup File"
If savef.ShowDialog() = DialogResult.OK Then
System.IO.File.Copy(TextBox1.Text, savef.FileName, True)
MsgBox("Backup Created successfuly")
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim openf As New OpenFileDialog()
openf.Filter = "Backup File|*.bak"
If openf.ShowDialog() = DialogResult.OK Then
System.IO.File.Copy(openf.FileName, TextBox1.Text, True)
MsgBox("Backup Restored successfuly")
End If
End Sub