hàm tìm kiếm file trong vb.net

Question

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each foundFile As String In My.Computer.FileSystem.GetFiles(
    My.Computer.FileSystem.SpecialDirectories.ProgramFiles, Microsoft.VisualBasic.FileIO.SearchOption.SearchAllSubDirectories, "IDMan.exe")

            TextBox1.Text = (foundFile)
        Next
        Shell(TextBox1.Text & " /d https://www.cca.edu/sites/default/files/pdf/08/word-to-pdf.pdf")
    End Sub