01.
Private
Sub
Backup_Click(
ByVal
sender
As
System.
Object
,
ByVal
e
As
System.EventArgs)
Handles
Backup.Click
02.
MessageBox.Show(
"ต้องการสำรองข้อมูลใช่หรือไม่"
,
"สำรองข้อมูล"
, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
03.
04.
If
Windows.Forms.DialogResult.Yes
Then
05.
Dim
b
As
String
06.
SaveFileDialog1.Title =
"Save File"
07.
SaveFileDialog1.FileName =
""
08.
SaveFileDialog1.Filter =
"Access File|*.accdb|ALL|*.*"
09.
SaveFileDialog1.ShowDialog()
10.
b = SaveFileDialog1.FileName
11.
FileCopy(
"E:\Coffee_Shop_V2\Coffee_Shop\bin\Debug\coffeedb.accdb"
, b)
12.
End
If
13.
14.
End
Sub