السلام عليكم ورحمة الله وبركاته
أساتذتي الكرام .. عند إغلاق البرنامج يقوم بنسخ ملف أحتياطي للقاعدة .
المشكلة أنه عند وجود نسخه سابقه من الباك اب يقوم البرنامج بالسوال هل تريد الكتابة فوق الملف
.... أنا اريد أن يقوم بالاستبدال دون إظهار الرسالة السابقة كما في الصورة .
وشكرا
كود زر الاغلاق
شكرا لكم وجدت الحل في
https://www.vbforums.com/showthread.php?...tification
وهو تغيير في الكود
أساتذتي الكرام .. عند إغلاق البرنامج يقوم بنسخ ملف أحتياطي للقاعدة .
المشكلة أنه عند وجود نسخه سابقه من الباك اب يقوم البرنامج بالسوال هل تريد الكتابة فوق الملف
.... أنا اريد أن يقوم بالاستبدال دون إظهار الرسالة السابقة كما في الصورة .
وشكرا
كود زر الاغلاق
كود :
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