منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود فتح ملف من الجهاز عن طريق مستعرض الملفات

اظن الصورة راح تشرح لكم الي ابيه
الي ابيه الأكواد

الصورة في المرفقات Blush

ارجو الرد بسرعة

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

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

كود :

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

    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

****
***
**
*

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

EdoAmeen

kslawy