Imports System.IO, System.Diagnostics, System.ComponentModel
Dim RecentFolderPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Recent)
Private Sub button1checkrecent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1checkrecent.Click listViewrecentfiles.Items.Clear() Dim lstitem As New ListViewItem() imageList1.Images.Clear() For Each RecentFile1 In Directory.GetFiles(RecentFolderPath) imageList1.Images.Add(RecentFile1, Icon.ExtractAssociatedIcon(RecentFile1)) 'add file and its icon lstitem = listViewrecentfiles.Items.Add(RecentFile1, RecentFile1) 'add created date lstitem.SubItems.Add(New FileInfo(RecentFile1).CreationTime.ToLongDateString()) 'add only name without extension lstitem.SubItems.Add(Path.GetFileNameWithoutExtension(RecentFile1)) Next End Sub