[سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود

[سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود (/showthread.php?tid=48093)

كيف يمكن الغاء السوال عند الكتابة على ملف موجود - dell - 19-03-24

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

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

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

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

وشكرا

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

كود :

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?788291-SOLVED-Copy-a-file-and-overwrite-it-without-notification

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

كود :

من 

Microsoft.VisualBasic.FileIO.UIOption.AllDialogs

إلى

 Microsoft.VisualBasic.FileIO.UIOption.OnlyErrorDialogs