[atefkhalf2004]

كيف يمكن ترتيب الملفات في المجلد حسب تاريخ التعديل  او الانشاء
مع حذف الاقدم 
اي ابفي علي  احدث  10  ملفات داخل المجلد وامسح الباقي

---

او عرضهم في لست حسب الاقدم  او  الاخدث

[mrnooo2000]

هذا الكود يرتب الملفات حسب تاريخ الانشاء من الاحدث الى الاقدم

كود :

       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

[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

[mrnooo2000]

اذا اردت عرضهم فى الليست 

كود :

ListBox1.Items.AddRange(fileList.ToArray)