
ListBox1.Items.Clear()
FolderBrowserDialog1.ShowDialog()
For Each filer In My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath)
ListBox1.Items.Add(filer)
Next
If TextBox1.Tex*****ntains(" HERE TEXT") Then
'here what you want to do after it finds a word
End If
Dim valor As String
valor = TextBox1.Text
ListBox1.Items.Clear()
FolderBrowserDialog1.ShowDialog()
For Each filer In My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath, FileIO.SearchOption.SearchAllSubDirectories)
If filer.Contains(valor) Then
MsgBox(filer)
ListBox1.Items.Add(filer)
End If
Next