[خالد كامل1]

(06-09-21, 07:24 PM)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 


بص على طريقه كتابتى للكود وقولى حضرتك فين الغلط وعلى فكره قاعده البينات الاولى mahel والتانيه warsha

     

كود :

Dim fbd As New FolderBrowserDialog()
       fbd.Description = "الرجاء تحديد المجلد للنسخ الاحتياطي"
       If fbd.ShowDialog() = DialogResult.OK Then
           System.IO.File.Copy(Application.StartupPath + "\MAHEL.accdb", fbd.SelectedPath + "\MAHEL.accdb")
           System.IO.File.Copy(Application.StartupPath + ":warsha.accdb", fbd.SelectedPath + ":warsha.accdb")
       End If