تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة في البحث عن الملفات
#1
السلام عليكم ورحمة الله  وبركاته .........
يا أخوان انا عند مشكلة في عملية البحث .
احاول ابحث عن كل ملفات TEXT  في C   بس يعطيني خطأ 
كود :
Public file_path_Array() As String


   Public Sub Search_for_files(ByVal type As String)
       Try
           Directory.GetFiles("C:\", type, SearchOption.AllDirectories)
           For Each s In Directory.GetFiles("C:\", type, SearchOption.AllDirectories)
               Form1.TextBox2.Text += s + Environment.NewLine

           Next
       Catch ex As UnauthorizedAccessException
           MsgBox(ex.ToString)
       Catch ex2 As Exception
           MsgBox(ex2.ToString)
       End Try


   End Sub
الرد }}
تم الشكر بواسطة:
#2
شغل البرنامج كـمسؤول لان الرسالة اللتي ظهرت لي حول صلاحية الوصول لمكان معين.
=====* التوقيع *======
=================
الرد }}
تم الشكر بواسطة:
#3
Video 
(04-06-18, 04:21 AM)سعود كتب : شغل البرنامج كـمسؤول لان الرسالة اللتي ظهرت لي حول صلاحية الوصول لمكان معين.

هذي المشكلة  انا احاول ابحث عن كل الملفات في الكمبيوتر بس يعطني مشكلة صلاحة الوصول لبعض


الملفات المرفقة صورة/صور
   
الرد }}
تم الشكر بواسطة:
#4
اخي الكريم لا اضمن ان مثالي التالي هو ماتريده لكني لم استطع عمل افضل منه بخصوص البحث في الاقراص.
برنامج الباحث

طريقة البحث مطولة جدا 
انظر للتعريفات التالية:

PHP كود :
       Dim MyDocuments As String System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
 
       Dim MyPictures As String System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
 
       Dim DesktopDirectory As String System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)
 
       Dim MyMusic As String System.Environment.GetFolderPath(Environment.SpecialFolder.MyMusic)
 
       Dim StartMenu As String System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu)
 
       Dim Startup As String System.Environment.GetFolderPath(Environment.SpecialFolder.Startup)
 
       Dim Favorites As String System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
 
       Dim ApplicationData As String System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
 
       ' Dim CommandApplicationData As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommandApplicationData)
        Dim CommonProgramFiles As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonProgramFiles)
        Dim Cookies As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Cookies)
        Dim History As String = System.Environment.GetFolderPath(Environment.SpecialFolder.History)
        Dim InternetCache As String = System.Environment.GetFolderPath(Environment.SpecialFolder.InternetCache)
        Dim LocalApplicationData As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
        Dim MyComputer As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyComputer)
        Dim ProgramFiles As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
        Dim Programs As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Programs)
        Dim Recent As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Recent) 

لابد من تشغيل البرنامج كـمسؤول
=====* التوقيع *======
=================
الرد }}
تم الشكر بواسطة: ThreeDaysGrace , sendbad100
#5
(04-06-18, 05:09 AM)سعود كتب : اخي الكريم لا اضمن ان مثالي التالي هو ماتريده لكني لم استطع عمل افضل منه بخصوص البحث في الاقراص.
برنامج الباحث

طريقة البحث مطولة جدا 
انظر للتعريفات التالية:

PHP كود :
       Dim MyDocuments As String System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
 
       Dim MyPictures As String System.Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)
 
       Dim DesktopDirectory As String System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)
 
       Dim MyMusic As String System.Environment.GetFolderPath(Environment.SpecialFolder.MyMusic)
 
       Dim StartMenu As String System.Environment.GetFolderPath(Environment.SpecialFolder.StartMenu)
 
       Dim Startup As String System.Environment.GetFolderPath(Environment.SpecialFolder.Startup)
 
       Dim Favorites As String System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites)
 
       Dim ApplicationData As String System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
 
       ' Dim CommandApplicationData As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommandApplicationData)
        Dim CommonProgramFiles As String = System.Environment.GetFolderPath(Environment.SpecialFolder.CommonProgramFiles)
        Dim Cookies As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Cookies)
        Dim History As String = System.Environment.GetFolderPath(Environment.SpecialFolder.History)
        Dim InternetCache As String = System.Environment.GetFolderPath(Environment.SpecialFolder.InternetCache)
        Dim LocalApplicationData As String = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)
        Dim MyComputer As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyComputer)
        Dim ProgramFiles As String = System.Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles)
        Dim Programs As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Programs)
        Dim Recent As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Recent) 

لابد من تشغيل البرنامج كـمسؤول
هذا بالضبط بالضبط الي ادور عليه لي فترة ادور في stockoverflow  وما لقيت شي شكرا لك ما قصرت  Rolleyes Rolleyes Rolleyes Rolleyes Rolleyes Rolleyes Rolleyes
الرد }}
تم الشكر بواسطة: سعود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] البحث عن USB mohamedallams 8 175 22-06-22, 08:55 PM
آخر رد: سعود
  مشكلة في عدم ظهور الأرقام العربية وفي الكريستال ريبورت بالنسبة لـ spiceal Fileds مث جيولوجي مبتدئ 3 1,560 22-06-22, 02:11 AM
آخر رد: جيولوجي مبتدئ
  مشكلة في كود الترقيم التلقائي Abdallah61 3 165 16-06-22, 04:56 AM
آخر رد: معاند الحظ
  مشكلة في ربط الفيجول ستوديو مع قاعدة البيانات SQL mohamedassim 7 204 15-06-22, 08:26 AM
آخر رد: mohamedassim
  طلب مساعدة في البحث عن مواقع لتحميل الملفات الصوتية للاحرف كل حرف على جدى AHMED213 0 191 06-06-22, 03:54 PM
آخر رد: AHMED213
  مشكلة فى devexpress mahmoudshefooo 2 344 30-05-22, 11:34 PM
آخر رد: mahmoudshefooo
  مشكلة في تعديل كود نيمو 2 247 24-05-22, 01:51 PM
آخر رد: نيمو
  مشكلة في crystalrepoet cordava 1 224 13-05-22, 08:48 PM
آخر رد: w-asem
  مشكلة اختلاف شكل عرض المشروع من جهاز الي جهاز اخر khaled12345 20 16,628 13-05-22, 12:22 PM
آخر رد: salamandal
  [VB.NET] تعديل كود حذف الملفات ابو جمال 2 407 29-04-22, 11:38 PM
آخر رد: ابو انس

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


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