[سعود]

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

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

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) 


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