الاكواد التي استخدمها الاخ princelovelorn
تعمل بشكل ممتاز لكن في اخر مجلد مثلا k توجد عدة مجلدات اريد لو اكتب اسم احد مجلدات في تكست يفتح هذا المجلد لوجود عدد كبير من المجلدات ضمن k
يعني المسار عندي ثابت دائما حتى المجلد k لكن ضمن kعدد هائل من المجلدات فاريد عندما اكتب اسم احدها في تكست يبحث عن المسار تباعا في كافة الاقراص ويفتحه
(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
ممتاز اخي هذا المطلوب جازاك الله كل خير