ترتيب الملفات في المجلد حسب تاريخ التعديل مع حذف الاقدم

ترتيب الملفات في المجلد حسب تاريخ التعديل مع حذف الاقدم - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ترتيب الملفات في المجلد حسب تاريخ التعديل مع حذف الاقدم (/showthread.php?tid=25267)

ترتيب الملفات في المجلد حسب تاريخ التعديل مع حذف الاقدم - atefkhalf2004 - 06-06-18

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

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

RE: ترتيب الملفات في المجلد حسب تاريخ التعديل مع حذف الاقدم - mrnooo2000 - 06-06-18

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

كود :

       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

RE: ترتيب الملفات في المجلد حسب تاريخ التعديل مع حذف الاقدم - atefkhalf2004 - 06-06-18

شكرا لك كثيرا

وكيف يتم عرضهم في لستة الاول

كه صح ولا هناك الافضل

        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

RE: ترتيب الملفات في المجلد حسب تاريخ التعديل مع حذف الاقدم - mrnooo2000 - 06-06-18

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

كود :

ListBox1.Items.AddRange(fileList.ToArray)