[asemshahen5]

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim dialog = New FolderBrowserDialog()
       dialog.SelectedPath = "C:\"
       If DialogResult.OK = dialog.ShowDialog() Then
           FindDir(dialog.SelectedPath)
       End If
   End Sub
   Sub FindDir(Folder As String)
       For Each file In IO.Directory.GetFiles(Folder, "*.exe", searchOption:=IO.SearchOption.AllDirectories)
           TextBox1.Text += file.ToString + Environment.NewLine
       Next
   End Sub