Imports System.IO
Imports System.Reflection
Imports System.Linq
Imports System.Xml.Linq
Public Class MainClass
Public Shared Sub Main
Dim RecentPath As String = _
Environment.GetFolderPath(Environment.SpecialFolder.Recent)
Dim Recent = From file In New DirectoryInfo(RecentPath).GetFiles _
Select file.Name, file.LastAccessTime
Console.WriteLine("Shortcuts to My Recent Documents:")
For Each r In Recent
Console.WriteLine(r.Name & " - " & r.LastAccessTime)
Next
End Sub
End Class
|