تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
من يعدل على هذا المثال [مثال سرد ملفات الجهاز كلها]
#1
ارجو التعديل على المثال بحيث يبحث عن الملفات الموجودة بالجهاز من غير المرور بملفات النظام
http://vb4arb.com/vb/uploaded/34_01371968882.zip





كود :
For x = 0 To ListBox1.Items.Count - 1

            ' ProgressBar1.Value = x
            'BackgroundWorker1.ReportProgress(x)
            'Threading.Thread.Sleep(10)
            ' ProgressBar1.Value += 1
            'عرض المجلدات الاولى في الاقراص


            'عرض الملفات بالمجلدات
            Dim files2() As String
            files2 = Directory.GetFiles(ListBox1.Items.Item(x))
            For Each fl In files2
                ' ProgressBar1.Value += 1


                ListBox3.Items.Add(fl)
                Label1.Text = fl


            Next










            For Each fld As String In IO.Directory.GetDirectories(ListBox1.Items.Item(x))
                ' ProgressBar1.Value += 1


                ListBox2.Items.Add(fld)
                '***********
                'عرض الملفات بالمجلدات
                Dim files1() As String
                files1 = Directory.GetFiles(fld)
                For Each fl In files1
                    ' ProgressBar1.Value += 1


                    ListBox3.Items.Add(fl)
                    Label1.Text = fl


                Next


                '***************
                Label1.Text = fld
                'عرض المجلدات في المجلدات الفرعية
                For Each fld1 In IO.Directory.GetDirectories(fld)
                    ' ProgressBar1.Value += 1


                    On Error Resume Next
                    ListBox2.Items.Add(fld1)
                    Label1.Text = fld1
                    'عرض الملفات بالمجلدات
                    Dim files() As String
                    files = Directory.GetFiles(fld1)
                    For Each fl In files
                        'ProgressBar1.Value += 1


                        ListBox3.Items.Add(fl)
                        Label1.Text = fl


                    Next
                Next


            Next


        Next
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#2
ايضا اريد تفعيل الـ progressbar فكيف اضبط الحد الاعلى؟؟
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#3
ايضا ياليت بكود التحقق من هل المحرك جاهز يعني يوجد كود سرد الاقراص في مربع قائمة فاريد كود يتحقق منه هل المحرك موجود ام لا يعني مثل مشغل السي دي
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#4
وياليت لو ممكن نستغني عن الادوات البصرية بمتغيرات .. ارجوكم والله يحفظكم
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#5
ما عندي معلومات عن الشي الطالبه هنا Sad

كان بودي أساعدك يا أخ سعود!
الرد }}}}
تم الشكر بواسطة:
#6
[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
اخي سعود ليش ماتضع شروط على حسب اسم الملف بحيث اذا لم يكن يحوي "dl." لايضيفه الى اللست
[/COLOR]
الرد }}}}
تم الشكر بواسطة:
#7
السلام عليكم أخي سعود،
أستطعت أن أضع خاصية البحث في ملفات النظام أم لا
لكن لم أستطع ربط البحث بـProgressBar
كما غيرت كود البحث كلياً و أتمنى يعجبك

يوجد بالمرفقات المثال بعد التعديل

[SIZE=2]أكثر شئ تعبني هو إنشاء المعادلة التي بدالة
[/SIZE]
GetEnumValueAtIndex لكن مش خسارة تعبي لأحبائي Smile Smile


الملفات المرفقة
.rar   Search.rar (الحجم : 72.06 ك ب / التحميلات : 63)
الرد }}}}
تم الشكر بواسطة:
#8
جزاك الله خير اخي
الرد }}}}
تم الشكر بواسطة:
#9
ماشاء الله .. المثال بعد التعديل صار اعمق بالبحث .. يحتاج لدراسة مني.
بارك الله فيك وجزاك عنا كل خير
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة:
#10
السلام عليكم و رحمة الله و بركاته,

أخي الكريم سعود, لقد وجدت لك هذا الكود في أحد المواقع الاجنبية و قاموا بتجربته و كان ناجحاً:

PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        Dim path 
As String "E:\Music"
        
Dim fileCount As Integer My.Computer.FileSystem.GetFiles(pathFileIO.SearchOption.SearchAllSubDirectories"*.jpg").Count 1
        With ProgressBar1
            
.Maximum fileCount
            
.Minimum 0
            
.Step 1
            
.Value 1
        End With
 
        
For Each foundFile As String In My.Computer.FileSystem.GetFiles(pathFileIO.SearchOption.SearchAllSubDirectories"*.jpg")
            
Me.ProgressBar1.PerformStep()
            
Me.Update()
            
ListBox1.Items.Add(foundFile)
        
Next
    End Sub 


أتمنى أن ينفعك الكود, جربه و أخبرني بالنتيجة.

تحياتي
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعريف ملفات الرسورس بالكلاس bidaya 2 64 19-09-17, 03:30 PM
آخر رد: bidaya
  كيفية نسخ ملفات في مجلد الـ System32 أو أي مجلد خاص بالوندوز بواسطة ملف الـ Setup نبيل فتحى 5 124 09-09-17, 01:51 AM
آخر رد: نبيل فتحى
  مساعده فى حماية او تشفير ملفات البرنامج نبيل فتحى 2 124 06-09-17, 08:16 AM
آخر رد: نبيل فتحى
Music [كود] هل لدى احد فكره عن كيفيه ارسال ملفات صوتيه عبر الشبكة badrkamel 1 89 23-08-17, 02:23 AM
آخر رد: zinom
Exclamation إن الموفر 'Microsoft.ACE.OLEDB.12.0' غير مسجل على الجهاز المحلي. سعود الشامان 4 195 29-07-17, 01:23 AM
آخر رد: سعود الشامان
  مساعده لو سمحتوا الكميات كلها بتدخل متشابهه نبيل كونكت 1 102 10-07-17, 10:53 AM
آخر رد: 23656
  مساعدة في تصحيح المثال المرفق anes 2 129 02-07-17, 02:04 PM
آخر رد: anes
  القضاء علي ملفات البرنامج ddemed 10 288 01-07-17, 07:13 AM
آخر رد: silverlight
  [VB.NET] اجعل ملفات Dll جزء من مشروعك مع سؤال 0theghost0 1 168 12-05-17, 10:47 PM
آخر رد: silverlight
  كيف أضيف أداة تقرأ ملفات PDF إلى فيجوال 2010 محمد بن عطية 2 198 09-05-17, 07:59 PM
آخر رد: safalo

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


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