[asemshahen5]

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