منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

(04-06-18, 04:21 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) 

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

(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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ThreeDaysGrace

سعود

ThreeDaysGrace

سعود

ThreeDaysGrace