[Abu00Raas]

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

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

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

هل كتابتي للكود سليمة ولا يبيلها تعديل وخصوصاً عند الـ 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]

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

أخي الكريم
إليك تعديل الكود

كود :

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]

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

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