[princelovelorn]

(07-05-25, 10:51 PM)EMADW كتب : الاكواد التي استخدمها الاخ princelovelorn
تعمل بشكل ممتاز لكن في اخر مجلد مثلا k توجد عدة مجلدات اريد لو اكتب اسم احد مجلدات  في تكست يفتح هذا المجلد لوجود عدد كبير من المجلدات ضمن k
يعني المسار عندي ثابت دائما حتى المجلد k لكن ضمن kعدد هائل من المجلدات فاريد عندما اكتب اسم احدها في تكست يبحث عن المسار تباعا في كافة الاقراص ويفتحه

أتمنى أن يكون هذا طلبك على حسب ما فهمت
الدالة التالية تفتح اسم المجلد الذي ستكتبه في خانة TEXTBOX  على أي تفريعة كانت ضمن المسار الاصلي
وستفتح كافة المجلدات بنفس الاسم أيضا أذا صدف وتواجد مجلدين متشابهين في الاسم

كود :

   Private Shared ReadOnly Folder_Path4 As String() = {
       "C:\ALL\1\",
       "D:\ALL\1\",
       "E:\ALL\1\",
       "F:\ALL\1\",
       "G:\ALL\1\"
   }

   Public Shared Function OpenFolderPath4(FOLDERNAME As String) As Boolean
       Dim foundAny As Boolean = False

       For Each basePath As String In Folder_Path4
           If Directory.Exists(basePath) Then
               Try
                   Dim foundDirs As String() = Directory.GetDirectories(basePath, FOLDERNAME, SearchOption.AllDirectories)

                   For Each dir As String In foundDirs
                       Process.Start(dir)
                       foundAny = True
                   Next
               Catch ex As UnauthorizedAccessException

               Catch ex As Exception

               End Try
           End If
       Next

       If Not foundAny Then
           MsgBox("المسار غير موجود")
       End If

       Return foundAny
   End Function



   Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
       OpenFolderPath4(TextBox1.Text)
   End Sub