(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

(06-09-21, 09:53 PM)waw كتب : الغلط في النقطتين : اللي قبل اسم الملف، المفروض تكون \

كود :

System.IO.File.Copy(Application.StartupPath + "\warsha.accdb", fbd.SelectedPath + "\warsha.a

(07-09-21, 03:40 AM)waw كتب : النقطتين وجودها خطا

لكن لاحظت في مشاركتك الاولى ان قاعدة البيانات الاساسية موجودة في مجلد DATA فاذا كان كذالك فيجب اضافة اسم ذلك المجلد قبل اسم الملف

كود :

System.IO.File.Copy(Application.StartupPath + "\DATA\warsha.accdb", fbd.SelectedPath + "\warsha.accdb")

اذا ظهر خطا ضع صورته

(07-09-21, 08:24 PM)waw كتب : لا تضيف اسم المجلد DATA في الجزء الثاني من السطر الا اذا كان هناك فعلا مجلد بذلك
اقصد بالجزء الثاني

كود :

fbd.SelectedPath + "\warsha.accdb"

لاحظت في مشاركتي السابقة اضفت اسم المجلد DATA في الجزء الاول فقط