الخروج من البرنامج بوضع أمن - خطأ أثناء التشغيل

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

لقد قمت بنقل الموضوع الى قسم .Net .

يوجد try and catch في vb.net ويجب عليك استخدامها لتغليف اي كود يحتمل ظهور خطأ منه وكذلك يمكن معالجة الخطأ الغير متوقع على مستوى البرنامج unhandled exception .

tareqvb

شكرا جزيلا

unhandled exception

هذا بالضبط المصطلح الذي احتجت لتذكره لاستخدامه في البحث

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

اخي اضافة لما قاله الاخ طارق استخدم البلوك Finally لوضع كود اغلاق الاتصال لتضمن 100% اذا حدث خطأ ام لا يتم اغلاق الملف!!

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

vb helper

شكرا ولكن تم تجربة الكود التالي والملف يغلق ولكن مشكلة أن الملف يبقى بحالة (مستخدم بواسطة برنامج آخر) ما زالت موجودة , ولا يمكن تعديل أو حذف الملف أو نقله

        Try
            Using ofd As New OpenFileDialog
                ofd.Filter = "Excel files (*.xls)|*.xls| " & "All files|*.*"
                ofd.Title = "choose"

                If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
                    MessageBox.Show(" you chose  " & vbNewLine & ofd.FileName)
                End If
                TextBox1.Text = ofd.FileName
                inputexcelname = ofd.FileName
            End Using
        Catch es As Exception
            MessageBox.Show(es.Message)
        Finally
            If Not (sw Is Nothing) Then
                sw.Close()
            End If

        End Try

هل يوجد حل؟

مع الشكر

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

اخي جرب المثال في المرفق لتوضيح الفكرة, يمكنك تعديل او حذف الملف الذي تم الكتابة عليه!!

WindowsApplication1.zip

الافضل استخدام using للتعامل مع الملفات

   Using sw As New IO.StreamWriter("12345.txt")

            End Using

واين الكود الذي تتعامل به مع الملفات ؟

vb Helper

عفواً أخي, صحيح

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

TarqVB

وضعت كود القراءة والكتابة بعد إغلاق try وأعتقد أن هذا هو سبب الخطأ

شكراً لكم وجزاكم الله خير