vb Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim files() As String = IO.Directory.GetFiles(path, "*.adf")
Dim items() As listItem = Array.ConvertAll(files, New Converter(Of String, listItem)(AddressOf String2listItem))
ListBox1.Items.AddRange(items)
End Sub
Private Function String2listItem(ByVal item As String) As listItem
Return New listItem With {.display = IO.Path.GetFileNameWithoutExtension(item), .fullPath = item}
End Function
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
MsgBox(DirectCast(ListBox1.SelectedItem, listItem).fullPath)
End Sub
End Class
Public Class listItem
Public display As String
Public fullPath As String
Public Overrides Function ToString() As String
Return display
End Function
End Class