Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        Dim Files As String() = New String() {"C:\Users\User\Desktop\Hello World.txt", "C:\Program Files\Company\MyApp.exe", "D:\data\test.wav"}

        Dim Entries As New List(Of FileEntry)

    For Each File As String In Files

        Entries.Add(New FileEntry(File))

    Next

    Console.WriteLine("-- How it will be displayed in a ListBox:")

For Each Entry As FileEntry In Entries

    Console.WriteLine(Entry)

Next

​

Console.WriteLine()

Console.WriteLine("-- What the entries' FullPaths are:")

For Each Entry As FileEntry In Entries

Console.WriteLine(Entry.FullPath)

Next

    End Sub

End Module

​

Public Structure FileEntry

Public FullPath As String

​

Public Overrides Function ToString() As String

    Return System.IO.Path.GetFileName(Me.FullPath)

End Function

​

Public Sub New(ByVal Path As String)

    Me.FullPath = Path

End Sub

End Structure