Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim fileList = From file In New DirectoryInfo("C:\").GetFiles() _
Where file.CreationTime.AddYears(1) > Now _
Order By file.Name
Console.WriteLine("Files created within the last year:")
For Each f In fileList
Console.WriteLine(f.Name)
Next
End Sub
End Class
|