[عبدالله الدوسري]

كود :

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

             
                  Dim sourcePath, DistPath As String
                  sourcePath = Application.StartupPath & "\Data.accdb"
                  DistPath = "هنا اكتب مسار الحفظ لأنه سيكون ثابت ولا يمكن للمستخدم تحديدة"
                  My.Computer.FileSystem.CopyFile(sourcePath, DistPath)
                  MsgBox("تم عمل نسخه إحتياطيه من البرنامج")

ضع الكود داخل مصيدة الأخطاء تحسباً لأي خطأ غير متوقع

كود :

Try

ضع الكود هنا

Catch ex As Exception
   MsgBox("حدث خطأ غير متوقع" & vbCrLf & ex.Message)
End Try