تقييم الموضوع :
  • 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
الرد }}}
تم الشكر بواسطة: سعود



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


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