removing the file ending and display just the file name with an image

See more:

VB

WinForms

I started creating an application launcher that pulls application shortcuts from a folder and list them with the icon and on click the application opens.

The issue im having is when i run it i get .lnk at the end of the shortcuts and all i want is just the name. Help would be great and please no links to other items to read i need help with the code.

Private Sub Application_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim Dir As New DirectoryInfo("C:\Remote Tools")
FillListView(Dir)

end sub

Private Sub FillListView(ByVal Folder As DirectoryInfo)
        Static ImageList As New ImageList With {.ColorDepth = ColorDepth.Depth32Bit, .ImageSize = New Size(20, 20)}
        Static ImgIndex As Integer = 0

        ListView1.LargeImageList = ImageList
        ListView1.View = View.Tile


        For Each F As FileInfo In Folder.GetFiles("*.lnk")
            ImageList.Images.Add(Drawing.Icon.ExtractAssociatedIcon(F.FullName))
            ListView1.Items.Add(F.Name, ImgIndex).Tag = F
            ImgIndex += 1
        Next


        For Each Dir As DirectoryInfo In Folder.GetDirectories
            FillListView(Dir)
        Next
    End Sub