29-03-21, 10:52 AM
السلام عليكم ورحمة الله وبركاتة
اليوم انا عدي مشكل بسيط لكن مش عرف احل المشكل هد
بسباب اني مش متعلم او مش متعمك بالفجوال بيسك
لكن شو المشكل
انو انا عمل تيكس بوكس يستقبل اسم المجلدات
لسباب اني اريد اصل الي اخر مجلد في قائمية المجلدات اللي في القرص
يعني انا عمل قول مايقرب 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
هد المشكل انا مش عرف احل وياريت اللي بقدار لا ياقصر معي وكون شكر الكم
شوف الصور رقم وحد
توضح الامور كل
الصور التاني توضح
الصور الثالث
كول الشكور اللي قايمن علي المنتدي الجميل
ورمضا كريم لانو رمضان علي الابواب