Visual Basic

Imports System.IO
Imports System.Collections
 
...
 
Public Shared Function Search(ByVal folder As String, ByVal minDate As Date) As FileInfo()
    Dim files As New ArrayList()
    Dim folderEntry As New DirectoryInfo(folder)
    SearchInternal(folderEntry, files, minDate)
    Return DirectCast(files.ToArray(GetType(FileInfo)), FileInfo())
End Function
 
Private Shared Sub SearchInternal(ByVal folder As DirectoryInfo, ByVal files As ArrayList, ByVal minDate As Date)
    If folder.Exists Then
        ' List the files in the current directory
        Dim file As FileInfo
        For Each file In folder.GetFiles()
            If file.LastWriteTime > minDate Then
                files.Add(file)
            End If
        Next
        
        ' Search the subdirectories
        Dim subfolder As DirectoryInfo
        For Each subfolder In folder.GetDirectories()
            SearchInternal(subfolder, files, minDate)
        Next
    End If
End Sub

α.γεεκ

Fortune passes everywhere.
Duke Leto Atreides