[سؤال] كود فتح ملف من الجهاز عن طريق مستعرض الملفات

كود :

' لفتح ملف من الجهاز

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        ' عرفنا أداة استعراض الملفات

        Dim ofd As New OpenFileDialog

        ' الفلتر لاستعرض ملفات محددة هنا تركناه يستعرض كل الملفات

        ofd.Filter = "All Files (*.*)|*.*"

        ' التحقق من أن المستخدم ضغط علي زر فتح (Open) في مستعرض الملفات

        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then

            ' وضع الملف الذي اخترناه في أداة التكست بوكس

            TextBox1.Text = ofd.FileName

        End If

    End Sub

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'متغير نصي لتخزين اسم الملف لسهولة التعامل معه

        Dim FileToDelete As String = TextBox1.Text

        ' التحقق من وجود نص في المتغير

        If FileToDelete <> "" Then

            ' التحقق من وجود الملف بالجهاز قبل مسحه

            If My.Computer.FileSystem.FileExists(FileToDelete) = True Then

                ' إظهار رسالة لتأكيد المسح

                If MsgBox("هل تريد بالتأكيد مسح هذا الملف ؟", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "تأكيد المسح") = MsgBoxResult.Yes Then

                    ' هنا نمسح الملف من الجهاز

                    My.Computer.FileSystem.DeleteFile(FileToDelete, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin, FileIO.UICancelOption.DoNothing)

                    '' شرح لبعض الأشياء في كود المسح:

                    ' FileIO.UIOption.OnlyErrorDialogs تعني لا تظهر أي نافذة مثل نافذة الويندوز الافتراضية لمسح الملفات فقط أظهر نافذة إذا حدث خطأ ما

                    ' FileIO.RecycleOption.SendToRecycleBin  إرسال الملف لسلة المحذوفات يوجد خيار آخر لمسح الملف نهائيا

                    ' ileIO.UICancelOption.DoNothing تعني إذا حدث خطأ ما أثناء المسح تجاهله ويوجد خيار آخر لإظهار رسالة بالخطأ الذي حدث

                End If

            End If

        Else

            ' إذا لا يوجد ملف مختار سنظهر رسالة تطالب بذلك

            MsgBox("الرجاء تحديد ملف لمسحه", MsgBoxStyle.Exclamation, "مسح ملف")

        End If

    End Sub