[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