Показать .exe файлы и запустить

Question

Может ли кто-нибудь помочь мне в том, как отображать .exe-файл в listBox и запускать их при нажатии? Я уже сделал некоторую кодировку, и мое кодирование может отображать только все .exe-файлы. Если возможно, я хочу, чтобы они тоже могли работать.

Вот мой код.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    ' make a reference to a directory 
    Dim di As New IO.DirectoryInfo("C:\") 
    Dim diar1 As IO.FileInfo() = di.GetFiles() 
    Dim dra As IO.FileInfo 

    listBox1.Items.Clear() 
    'list the names of all files in the specified directory 
    For Each dra In diar1 
     listBox1.Items.Add(dra) 
    Next 
End Sub 

Answer 1

Я бы, как правило, связывает FileInfo объектов, как так:

Dim folder As New DirectoryInfo("folder path here") 
Dim files = folder.GetFiles("*.exe") 

With Me.ListBox1 
    .DisplayMember = "Name" 
    .ValueMember = "FullName" 
    .DataSource = files 
End With 

, который будет отображаться только именем файла, но тогда вы можете получить доступ к полному пути к выбранному файлу через SelectedValue собственности ListBox. Запуск выбранного исполняемого файла влечет за собой:

Process.Start(CStr(Me.ListBox1.SelectedValue))