Recent Files - Open in VB.NET

Submitted by donbermoy on Friday, May 8, 2015 - 22:43.

This tutorial will teach you how to open the file and the file location of the recent files in vb.net. This is a continuation of my other tutorial in displaying the recent files. Now, let's start this tutorial! 1. Let's start with creating a Windows Form Application for this tutorial by following the following steps in Microsoft Visual Studio: Go to File, click New Project, and choose Windows Application. 2. Next, add only listview named listViewrecentfiles, and two buttons named btnOpenFile for opening the files and btnOpenFileLocation for opening the location of the recent files. Inset ImageList and a ContextStripMenu also. You must design your interface like this: output

3. Now, we will do the coding. Last time, I put the code of displaying all the recent files in the button. But this time we will put it in the Form_Load. Import first the following libraries.

Imports System.IO, System.Diagnostics, System.ComponentModel

 Dim RecentFolderPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Recent)
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        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

For opening the location of the recent files, we will code for the btnOpenFileLocation button and use the Process.Start.

    Private Sub btnOpenFileLocation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenFileLocation.Click
        Process.Start(RecentFolderPath)
    End Sub

For opening the recent files, we will code for the ListView SelectIndexChanged event to view the recent files in the ContextStripMenu.

    Private Sub listViewrecentfiles_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listViewrecentfiles.SelectedIndexChanged
        If listViewrecentfiles.SelectedItems.Count > 0 Then
            If MouseButtons = MouseButtons.Right Then
                contextMenuStrip1.Show(listViewrecentfiles, listViewrecentfiles.SelectedItems(0).Position.X, listViewrecentfiles.SelectedItems(0).Position.Y)
            End If
        End If
    End Sub

And for out button in opening the recent files, we will just use the process.start method with the selected items that was clicked in our listview.

    Private Sub btnOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenFile.Click
        Try
            Process.Start(listViewrecentfiles.SelectedItems(0).Text)
        Catch m As Win32Exception
        End Try
    End Sub

Same also with double clicking the items in the listview to open the recent files.

    Private Sub listViewrecentfiles_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listViewrecentfiles.SelectedIndexChanged
        If listViewrecentfiles.SelectedItems.Count > 0 Then
            If MouseButtons = MouseButtons.Right Then
                contextMenuStrip1.Show(listViewrecentfiles, listViewrecentfiles.SelectedItems(0).Position.X, listViewrecentfiles.SelectedItems(0).Position.Y)
            End If
        End If
    End Sub

Output:

For more inquiries and need programmer for your thesis systems in any kind of programming languages, just contact my number below. Best Regards, Engr. Lyndon Bermoy IT Instructor/System Developer/Android Developer/Freelance Programmer Mobile: 09488225971 Landline: 826-9296 E-mail:[email protected] Add and Follow me on Facebook: https://www.facebook.com/donzzsky Visit and like my page on Facebook at: https://www.facebook.com/BermzISware

Add new comment

556 views