منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف يمكن الغاء السوال عند الكتابة على ملف موجود

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

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

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

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

وشكرا

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

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dell