Найти все файлы на указанном диске с расширением *.exe

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GetFindSub("C:\", "*.dll")
    End Sub
 
 
    Sub GetFindSub(ByVal d As String, ByVal f As String)
        Try
            Application.DoEvents()
            Dim ListFiles As String() = IO.Directory.GetFiles(d, f)
            Dim ListFolders As String() = IO.Directory.GetDirectories(d)
            For Each item In ListFiles
                ListBox1.Items.Add(item)
            Next
            For Each item In ListFolders
                GetFindSub(item, f)
            Next
        Catch ex As Exception
        End Try
    End Sub

ListBox1.Items.Add(item)

ListView1.Items.Add(IO.Path.GetFileName(item)).SubItems.Add(item)

 Sub GetFindSub(ByVal d As String, ByVal f As String)
        Dim ListFiles As String() = IO.Directory.GetFiles(d, f, IO.SearchOption.AllDirectories)
        For Each file In ListFiles
            Dim fi As New IO.FileInfo(file)
            Dim itm As New ListViewItem({fi.Name, fi.FullName})
            ListView1.Items.Add(itm)
        Next
    End Sub

Sub GetFindSub(ByVal d As String, ByVal f As String)
        Dim ListFiles As String() = IO.Directory.GetFiles(d, f, IO.SearchOption.AllDirectories)
        For Each file In ListFiles
            Dim itm As New ListViewItem({IO.Path.GetFileNameWithoutExtension(file), IO.Path.GetFullPath(file)})
            ListView1.Items.Add(itm)
        Next
    End Sub