[princelovelorn]

(07-05-25, 10:29 PM)EMADW كتب : اخي الكريم شكرا لك على هذا الكود هنا يبحث عن المجلد بكافة الاقراص  تباعا 
لكن ماذا افعل لو كان يبحث لي مثلا عن D:all.k  لكن ضمن مجلد kيوجد عدد كبير من المجلدات مثل nوvوf اريد ان اضع اسم احد المجلدات الموجود في k  مثل vضمن تكست بوكس  فيقوم بالبحث في جميع الاقراص عن المسار المطلوب بالاضافة للمجلدv الموجود ضمن k والذي كتبت اسمه ضمن التكست
يعني اريد ان اكتب في التكست اسم المجلد الذي اريد فتحه فقط

الشكر لله والفضل لله

تفضل الأكواد
كل ما عليك اكتب اسم المجلد في TEXTBOX1

كود :

   ' أكتب هنا المسارات كاملة اللى ممكن تستخدمها
   Private Shared ReadOnly Folder_Path2 As String() = {
       "C:\ALL\1\",
       "D:\ALL\1\",
       "E:\ALL\1\",
       "F:\ALL\1\",
       "G:\ALL\1\"
   }


   Public Shared Function OpenFolderPath2(FOLDERNAME As String) As Boolean
       For Each search_f_Path2 As String In Folder_Path2
           Dim fullPath2 As String = search_f_Path2 & FOLDERNAME & "\"
           If Directory.Exists(fullPath2) Then
               Process.Start(fullPath2)
               Return True ' تم العثور على المجلد وفتحه
           End If
       Next
       Return MsgBox("المسار غير موجود") ' لم يتم العثور على المجلد في أي من المسارات
   End Function


   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
       OpenFolderPath2(TextBox1.Text)
   End Sub

---

(07-05-25, 10:39 PM)Kamil كتب : هل قرأتم هذا الموضوع

http://vb4arb.com/vb/showthread.php?tid=52985

نعم أخي لقد قرأته بارك الله فيك

ولكن الأخ يريد الأن فتح مجلدات وليس ملفات