كيف يمكن ترتيب الملفات في المجلد حسب تاريخ التعديل او الانشاء
مع حذف الاقدم
اي ابفي علي احدث 10 ملفات داخل المجلد وامسح الباقي
او عرضهم في لست حسب الاقدم او الاخدث
هذا الكود يرتب الملفات حسب تاريخ الانشاء من الاحدث الى الاقدم
كود :
Dim di As New DirectoryInfo("folder path")
Dim fileList = di.GetFiles()
fileList = fileList.OrderByDescending(Function(x) x.CreationTime).ToArray()
و هذا يبقى احدث 10 ملفات بالمجلد و يحذف الاقدم
كود :
Dim di As New DirectoryInfo("myFolder")
Dim fileList As FileInfo() = di.GetFiles()
fileList = fileList.OrderBy(Function(x) x.CreationTime).ToArray()
For i = 0 To fileList.Count - 9
fileList(0).Delete()
Next
شكرا لك كثيرا
وكيف يتم عرضهم في لستة الاول
كه صح ولا هناك الافضل
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