显示.exe文件并运行

Question

有人能帮助我如何在listBox中显示。exe文件并在单击时运行它们吗?我已经做了一些编码，我的编码只能显示所有的。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

这将只显示文件名，但您可以通过ListBox的SelectedValue属性访问所选文件的完整路径。运行选定的可执行文件需要:

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