[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

بالتوفيق