[dell]

السلام عليكم ورحمة الله وبركاته

أساتذتي الكرام .. عند إغلاق البرنامج يقوم بنسخ ملف أحتياطي للقاعدة .

المشكلة أنه عند وجود نسخه سابقه من الباك اب يقوم البرنامج بالسوال هل تريد الكتابة فوق الملف

.... أنا اريد أن يقوم بالاستبدال دون إظهار الرسالة السابقة كما في الصورة .

وشكرا

كود زر الاغلاق

كود :

If MsgBox("هل تريد بالتأكيد انهاء البرنامج ؟", vbMsgBoxRight + vbExclamation + vbYesNo, "تأكيد انهاء البرنامج") = vbNo Then Exit Sub
       For Each ChildForm As Form In Me.MdiChildren
           ChildForm.Close()
       Next

       ' عملية التحقق من وجود ملف أو أنشاءه في حالة عدم وجوده
       If My.Computer.FileSystem.DirectoryExists(Application.StartupPath & "\BaukUp") Then
           baukupmdiparent()
       Else
           'Copy, Create, Delete, and Renaming a Directory.
           MsgBox("لايوجد ملف نسخة إحتياطية .. سوف يتم الان إنشاء مجلد بإسم BaukUp في القرص :D", MsgBoxStyle.Exclamation, "لاتوجد نسخة إحتياطية")
           Dim dir As String = Application.StartupPath & "\BaukUp"
           'Create a directory with the path and name specified in the dir string variable.
           My.Computer.FileSystem.CreateDirectory(dir)
           baukupmdiparent()
       End If
       ' Application.ExitThread()
       End
       Con.Close()
       Me.Close()

كود :

Public Sub baukupmdiparent()

       My.Computer.FileSystem.CopyFile(
                            Application.StartupPath & "\pic2\asdfg.ssl",
                            Application.StartupPath & "\BaukUp\" & DateTime.Now.ToString("(yyyy-MM)") & ".ssl",
                            Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
                            Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)

       MessageBox.Show("تم النسخ بنجاح", "تقدم عملية النسخ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

   End Sub

---

شكرا لكم وجدت الحل في 

https://www.vbforums.com/showthread.php?...tification

وهو تغيير في الكود

كود :

من
Microsoft.VisualBasic.FileIO.UIOption.AllDialogs
إلى

Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs