Imports System

Imports System.Linq

​

Public Module Module1

​

    Public Sub Main()

        'Create a directory for example purposes

        IO.Directory.CreateDirectory("directory")

        'Create a file for example purposes

        IO.File.CreateText(IO.Path.Combine("directory", "file.txt"))

        'Get the files by creation date

        Dim todaysFiles() As IO.FileInfo = GetFilesByCreationDate("directory", DateTime.Now)

        'Print the file names of each file

        Console.WriteLine(String.Join(Environment.NewLine, From f As IO.FileInfo In todaysFiles Select f.FullName))

        'Get the text files by creation date

        Dim todaysTextFiles() As IO.FileInfo = GetFilesByCreationDate("directory", DateTime.Now, "*.txt")

        'Print the file names of each file

        Console.WriteLine(String.Join(Environment.NewLine, From f As IO.FileInfo In todaysTextFiles Select f.FullName))

    End Sub

​

    Friend Function GetFilesByCreationDate(ByVal directory As String, ByVal creation As DateTime) As IO.FileInfo()

        Return(From file As IO.FileInfo In New IO.DirectoryInfo(directory).GetFiles() Where file.CreationTime.Date = creation.Date).ToArray()

    End Function

​

    Friend Function GetFilesByCreationDate(ByVal directory As String, ByVal creation As DateTime, ByVal filter As String) As IO.FileInfo()

        Return(From file As IO.FileInfo In New IO.DirectoryInfo(directory).GetFiles(filter) Where file.CreationTime.Date = creation.Date).ToArray()

    End Function

End Module

​