06-09-21, 07:24 PM
PHP كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim fbd As New FolderBrowserDialog()
fbd.Description = "الرجاء تحديد المجلد للنسخ الاحتياطي"
If fbd.ShowDialog() = DialogResult.OK Then
System.IO.File.Copy(Application.StartupPath + "\FirstDatabase.accdb", fbd.SelectedPath + "\FirstDatabase.accdb")
System.IO.File.Copy(Application.StartupPath + "\SecandDatabase.accdb", fbd.SelectedPath + "\SecandDatabase.accdb")
End If
End Sub
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر