منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
التعديل على الكود في حال لم يكن صحيحاً - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=8495)

التعديل على الكود في حال لم يكن صحيحاً - Abu00Raas - 16-04-13

السلام عليكم ..

أخواني عندي مشكلة وإن شاء الله تكون بسيطة

أنا أبي أعرض الملفات اللي صارلها يوم بس من تاريخ إنشائها في ليست فيو

هل كتابتي للكود سليمة ولا يبيلها تعديل وخصوصاً عند الـ fi.CreationTime > DateTime.Now.AddDays(-1) ؟

كود :
Try
            Dim di As New IO.DirectoryInfo("C:\")
            Dim aryFi As IO.FileInfo() = di.GetFiles("*.*")
            Dim fi As IO.FileInfo
            For Each fi In aryFi
                If fi.CreationTime > DateTime.Now.AddDays(-1) Then
                    ListView1.Items.Add(fi.Name)
                End If
            Next
        Catch ex As Exception
            MsgBox("Error")
        End Try

وبارك الله فيكم


التعديل على الكود في حال لم يكن صحيحاً - sooriaty03 - 16-04-13

السلام عليكم ورحمة الله وبركاته

أخي الكريم
إليك تعديل الكود
كود :
Try
                Dim di As New IO.DirectoryInfo("C:\")
                Dim aryFi As IO.FileInfo() = di.GetFiles("*.*")
                Dim fi As IO.FileInfo
                For Each fi In aryFi
                    If fi.CreationTime.ToString("yy/MM/dd") = DateTime.Now.AddDays(-1).ToString("yy/MM/dd") Then
                        ListBox1.Items.Add(fi.Name)
                    End If
                Next
            Catch ex As Exception
                MsgBox("Error")
            End Try

بالتوفيق

التعديل على الكود في حال لم يكن صحيحاً - Abu00Raas - 16-04-13

بارك الله فيك أخي الغالي ،،

واسأل الله بأن لا يحرمك الأجر ..