30-03-21, 12:33 AM
السلام عليكم ورحمة الله وبركاته
ورمضان كريم علينا وعليكم
المشكلة هي ان دالة الحصول على المجلد او الملف تبدأ من الترتيب الرقمي المعروف مثل ترتيب الليست بوكس وتكون الارقام بالشكل الي ذكرته حضرتك
جرب هذا الكود اخي اختصرتلك الكود راح يجيب المجلدات حسب ترتيبها بالمجلد وان شاء الله ما اكون فهمتك خطأ ويكون هذا طلبك
ورمضان كريم علينا وعليكم
المشكلة هي ان دالة الحصول على المجلد او الملف تبدأ من الترتيب الرقمي المعروف مثل ترتيب الليست بوكس وتكون الارقام بالشكل الي ذكرته حضرتك
جرب هذا الكود اخي اختصرتلك الكود راح يجيب المجلدات حسب ترتيبها بالمجلد وان شاء الله ما اكون فهمتك خطأ ويكون هذا طلبك
كود :
Dim D() As String = IO.Directory.GetDirectories("مسار المجلد")
Dim Directories = From t As String In D.OrderBy(Function(filePath) CInt(IO.Path.GetFileNameWithoutExtension(filePath)))
ListBox1.Items.AddRange(Directories.ToArray)