تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود فتح ملف من الجهاز عن طريق مستعرض الملفات
#1
اظن الصورة راح تشرح لكم الي ابيه
الي ابيه الأكواد

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

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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

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

كود :
' لفتح ملف من الجهاز
    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


****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد
تم الشكر بواسطة: الشاكي لله , hoob computer , ali.alfoly


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ترتيب ارقام الملفات ابو روضة 0 27 23-03-19, 04:31 PM
آخر رد: ابو روضة
  مشكلة فى تثبيت الكريستال ريبورت يقف ويظهر رسالة خطاء ولا يقوم بالتثبيت على الجهاز hedra samir 1 48 22-03-19, 02:59 PM
آخر رد: 5000
  السلام عليكم محتاج كود صغير للبحث داخل الكمبو بوكس عن طريق الكمبو بوكس نفسه mohamedgadain61 2 94 19-03-19, 04:07 PM
آخر رد: mohamedgadain61
  نسخ ولصق الملفات معاذ_ابراهيم 0 44 14-03-19, 11:43 AM
آخر رد: معاذ_ابراهيم
  استخدام الماسح الضوئي في حفظ الملفات aftfm 5 195 01-03-19, 07:18 PM
آخر رد: aftfm
  [Acces2007] كيف يمكن استخدام اداة WebBrowser4 داخل الاكسز بدون حفظ الروابط المستخدمة على الجهاز come2playati 0 78 05-02-19, 09:04 PM
آخر رد: come2playati
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 339 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  ما افضل قطعة فى الجهاز للحماية new_programer 3 206 27-01-19, 09:01 PM
آخر رد: new_programer
Exclamation [كود] احتاج كود لحفظ التغيرات اللتي بالفورم عن طريق الريجستري YousefOkasha 3 527 01-01-19, 01:12 AM
آخر رد: YousefOkasha
  [VB.NET] سؤال عن حفظ ملف معد بـ FileStream عن طريق SaveFileDialog عماد البشبيشى 0 131 23-12-18, 01:17 AM
آخر رد: عماد البشبيشى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم