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

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

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

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

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

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

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

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

كود :

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

sooriaty03

Abu00Raas