[Kareem2021]

السلام عليكم ورحمة الله وبركاتة

اليوم انا عدي مشكل بسيط لكن مش عرف احل المشكل هد

بسباب اني مش متعلم او مش متعمك بالفجوال بيسك

لكن شو المشكل

انو انا عمل تيكس بوكس يستقبل اسم المجلدات

لسباب اني اريد اصل الي اخر مجلد في قائمية المجلدات اللي في القرص

يعني انا عمل قول مايقرب 20 مجلد كول مجلد يبد

باسم زي هيك

1مجلد

2مجلد

3مجلد

والي اخرا مجلد

انا بدي اوصل الي اخر مجلد

انا عدي كول المكنيات لكن

لا ياتي باخر مجلد بدي ارفع صور حتا توضح الفكر

نشوف الصور

كود :

 TextBox4.Text = ""
       Dim PathGG As String = TextBox1.Text
       Dim DirPathGG As Boolean = IO.Directory.EnumerateDirectories(PathGG).Any ' الحقق من وجود ملفات في مسار الماي يوزر
       If DirPathGG Then
           Dim MyFiles() As String = Directory.GetDirectories(PathGG, "*", SearchOption.TopDirectoryOnly)
           For Each strFile As String In MyFiles
               TextBox4.Text = Path.GetFileName(strFile)
           Next

       End If

هد الوكود يعمل علي جلب جميع المجلدات دخل مسار محداد

وهواه يعمل بشكل صحيح ياتي بكول المجلدات

لكن انا عدي اخر مجلد رقم 26 مابجيب اخر مجلد

رقم 26 لا بجيب مجلد رقم 9

هد المشكل انا مش عرف احل وياريت اللي بقدار لا ياقصر معي وكون شكر الكم

شوف الصور رقم وحد

توضح الامور كل

الصور التاني توضح

الصور الثالث

كول الشكور اللي قايمن علي المنتدي الجميل

ورمضا كريم لانو رمضان علي الابواب