Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        ListBox1.DataSource = GetCorrectFiles("d:/", Date.Today)
        ListBox1.DisplayMember = "Name"
    End Sub
 
    Private Function GetCorrectFiles(ByVal path As String, ByVal compDate As _
      Date) As IO.FileInfo()
        Dim dir As New IO.DirectoryInfo(path)
        Dim lst As New List(Of IO.FileInfo)
        If dir.Exists Then
            lst = dir.GetFiles("*.txt", IO.SearchOption.TopDirectoryOnly).ToList
            If lst.Count > 0 Then
                For i As Integer = lst.Count - 1 To 0 Step -1
                    Try
                        Dim allText() As String = IO.File.ReadAllLines(lst( _
                          i).FullName)
                        If allText.Length > 0 Then
                            Dim d As Date = CType(allText(0), Date)
                            If d <> compDate Then lst.RemoveAt(i)
                        Else
                            lst.RemoveAt(i)
                        End If
                    Catch ex As Exception
                        lst.RemoveAt(i)
                    End Try
                Next
            End If
        End If
        Return lst.ToArray
    End Function