Mega Code Archive

 

Categories / VB.Net / LINQ

 

Shows shortcuts to everything under My Recent Documents

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