تمت الإجابة كود يبحث عن كل الملفات

تم تحميل الصفحة في 1,8421734 ثانية
كود يبحث عن كل الملفات
الحالة
مغلق و غير مفتوح للمزيد من الردود.

FuuRy

Beginner Developer
rank
إنضم
20 مارس 2018
المشاركات
143
الإعجابات
98
النقاط
28
العمر
31
السلام عليكم

عندي كود لكن يبحث عن مسار معين أنا ابيه يبحث داخل الجهاز كامل

وهذا الكود
كود:
 ListBox1.Items.Clear()
        Dim ourfile As String = TextBox1.Text
        Dim Folder As String = My.Computer.FileSystem.SpecialDirectories.Desktop
        Dim di As New IO.DirectoryInfo(Folder)
        Dim files As IO.FileInfo() = di.GetFiles()
        Dim filesnames As IO.FileInfo
        For Each filesnames In files
            Dim filename As String = filesnames.ToString.Substring(0, filesnames.ToString.IndexOf("."))
            If (ourfile.ToLower = filename.ToLower) Then
                ListBox1.Items.Add(filesnames.ToString)
            End If
        Next
        If ListBox1.Items.Count = 0 Then
            MsgBox("file not found")
        Else
            MsgBox("file is found")
        End If
في أنتظاركم
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل