المشاركات : 1,208
المواضيع 211
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
06-06-18, 03:35 PM
(آخر تعديل لهذه المشاركة : 06-06-18, 03:42 PM {2} بواسطة atefkhalf2004.)
كيف يمكن ترتيب الملفات في المجلد حسب تاريخ التعديل او الانشاء
مع حذف الاقدم
اي ابفي علي احدث 10 ملفات داخل المجلد وامسح الباقي
او عرضهم في لست حسب الاقدم او الاخدث
المشاركات : 1,208
المواضيع 211
الإنتساب : Sep 2013
السمعة :
2
الشكر: 1
تم شكره 503 مرات في 297 مشاركات
06-06-18, 04:34 PM
(آخر تعديل لهذه المشاركة : 06-06-18, 04:55 PM {2} بواسطة atefkhalf2004.)
شكرا لك كثيرا
وكيف يتم عرضهم في لستة الاول
كه صح ولا هناك الافضل
For i = 0 To fileList.Count - 1
ListBox1.Items.Add(fileList(i))
Next
وهذا الكود للحذف
ListBox1.DataBindings.Clear()
ListBox1.Items.Clear()
Dim di As New DirectoryInfo("d:\datacopy")
Dim fileList As FileInfo() = di.GetFiles()
fileList = fileList.OrderBy(Function(x) x.CreationTime).ToArray()
For i = 0 To fileList.Count - 4
'fileList(0).Delete()
هنا الخطأ
Dim DeleteFile As String = "d:\datacopy\" & fileList(i)
برجاء التعديل
My.Computer.FileSystem.DeleteFile(DeleteFile)
Next