[emamtron2014]

السلام عليكم
بارك الله فيكم جميعا علي هذا المجهود الرائع وجعله الله في ميزان حسناتكم جميعا ان شاء الله

اريد مساعدتك في كود لعمل نسخه تجريبيه
بعد البحث ومساعدتكم فقد تمكنت من كتابة كود فيتم عمل نسخه احتياطيه  او  backup  من قاعدة البيانات للبرنامج
هو عند الضغط علي زر معين يظهر  SaveFileDialog    ثم يتم اختيار مكان الحفظ
الكود شغال تمام 
ولكن هل توجد طريقه  لعمد عرض ال   SaveFileDialog    بحيث عند الضغط علي الزر تتم عملية الانشاء مباشرة

وايضا هل من طريقه تجعل قاعدة البيانات يتم حفظها بتاريخ اليوم 


ها هو الكود المستخدم
رجاء من سيادتكم التعديل عليه ان امكن

كود :

SaveFileDialog1.Filter = "Access DB | *.accdb"

               If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                   Dim sourcePath, DistPath As String
                   sourcePath = Application.StartupPath & "\Data.accdb"
                   DistPath = SaveFileDialog1.FileName
                   My.Computer.FileSystem.CopyFile(sourcePath, DistPath)
                   MsgBox("تم عمل نسخه إحتياطيه من البرنامج")
               Else
                   MsgBox("لم يتم عمل نسخه إحتياطيه")
                   End If

وجزاكم الله خير الجزاء