منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكلة في البحث عن الملفات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة في البحث عن الملفات (/showthread.php?tid=25227)

مشكلة في البحث عن الملفات - ThreeDaysGrace - 04-06-18

السلام عليكم ورحمة الله  وبركاته .........
يا أخوان انا عند مشكلة في عملية البحث .
احاول ابحث عن كل ملفات 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


RE: مشكلة في البحث عن الملفات - سعود - 04-06-18

شغل البرنامج كـمسؤول لان الرسالة اللتي ظهرت لي حول صلاحية الوصول لمكان معين.

RE: مشكلة في البحث عن الملفات - ThreeDaysGrace - 04-06-18

(04-06-18, 04:21 AM)سعود كتب : شغل البرنامج كـمسؤول لان الرسالة اللتي ظهرت لي حول صلاحية الوصول لمكان معين.

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

RE: مشكلة في البحث عن الملفات - سعود - 04-06-18

اخي الكريم لا اضمن ان مثالي التالي هو ماتريده لكني لم استطع عمل افضل منه بخصوص البحث في الاقراص.
برنامج الباحث

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

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) 

لابد من تشغيل البرنامج كـمسؤول

RE: مشكلة في البحث عن الملفات - ThreeDaysGrace - 04-06-18

(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