Opening every folder/subfolder until there are no more - vb.net

Question

I have code that searches through a particular folder path for excel files and pulls back results. What I can't figure out, is how to select an entire directory and open/search every folder it encounters.
The best solution would be an IF statement that opens the folder If it is available, but I am stumped.
Thank You in advance.
If I need to be more descriptive let me know!
Try
excelapp = New Application
excelapp.Visible = False
strPath = TextBox2.Text
'strPath = "C:\Users\asside\Documents\Test Program"
strSearch = TextBox1.Text
'strSearch = "soup"
If TextBox1.Text = "" Then
Form3.ShowDialog()
Exit Sub
End If
itms(0, 0) = "Workbook"
itms(1, 0) = "Worksheet"
itms(2, 0) = "Cell"
itms(3, 0) = "Text in Cell"
fso = CreateObject("Scripting.FileSystemObject")
fld = fso.GetFolder(strPath)
strFile = Dir(strPath & "\*.xls*")
Do While strFile <> ""
wbk = excelapp.Workbooks.Open(
Filename:=strPath & "\" & strFile,
UpdateLinks:=0,
ReadOnly:=True,
AddToMru:=False)
For Each wks In wbk.Worksheets
rFound = wks.UsedRange.Find(strSearch)
If Not rFound Is Nothing Then
strFirstAddress = rFound.Address
End If
Do
If rFound Is Nothing Then
Exit Do
Else
itmcnt += 1
ReDim Preserve itms(3, itmcnt)
itms(0, itmcnt) = wbk.Name
itms(1, itmcnt) = wks.Name
itms(2, itmcnt) = rFound.Address
itms(3, itmcnt) = rFound.Value
End If
rFound = wks.Cells.FindNext(After:=rFound)
Loop While strFirstAddress <> rFound.Address
Next
wbk.Close(False)
strFile = Dir()
Loop
Catch ex As Exception
MsgBox(ex.Message, vbExclamation, "")
End Try
wOut = Nothing
wks = Nothing
wbk = Nothing
fld = Nothing
fso = Nothing
excelapp.Visible = False
excelapp = Nothing
Dim savefilePath As String
savefilePath = Form5.TextBox1.Text
If savefilePath = "" Then
savefilePath = "Z:\Eric Application\SoupSearch\Program Files\OutputFolder\OutputSearch.CSV"
End If"

Answer 1

Use System.IO.Directory.GetFiles(string, string, SearchOption) using search option: System.IO.SearchOption.AllDirectories
Dim paths = IO.Directory.GetFiles("path", "*.xls*", IO.SearchOption.AllDirectories)
In your example
Try
excelapp = New Application
excelapp.Visible = False
strPath = TextBox2.Text
'strPath = "C:\Users\asside\Documents\Test Program"
strSearch = TextBox1.Text
'strSearch = "soup"
If TextBox1.Text = "" Then
Form3.ShowDialog()
Exit Sub
End If
itms(0, 0) = "Workbook"
itms(1, 0) = "Worksheet"
itms(2, 0) = "Cell"
itms(3, 0) = "Text in Cell"
fso = CreateObject("Scripting.FileSystemObject")
fld = fso.GetFolder(strPath)
For Each strfile In IO.Directory.GetFiles(strPath, "*.xls*", IO.SearchOption.AllDirectories)
wbk = excelapp.Workbooks.Open(
Filename:=strfile,
UpdateLinks:=0,
ReadOnly:=True,
AddToMru:=False)
For Each wks In wbk.Worksheets
rFound = wks.UsedRange.Find(strSearch)
If Not rFound Is Nothing Then
strFirstAddress = rFound.Address
End If
Do
If rFound Is Nothing Then
Exit Do
Else
itmcnt += 1
ReDim Preserve itms(3, itmcnt)
itms(0, itmcnt) = wbk.Name
itms(1, itmcnt) = wks.Name
itms(2, itmcnt) = rFound.Address
itms(3, itmcnt) = rFound.Value
End If
rFound = wks.Cells.FindNext(After:=rFound)
Loop While strFirstAddress <> rFound.Address
Next
wbk.Close(False)
Next
Catch ex As Exception
MsgBox(ex.Message, vbExclamation, "")
End Try

Answer 2

Use the method IO.Directory.GetFiles and set the searchOption-argument to AllDirectories.
For Each f As String In IO.Directory.GetFiles("C:\", "*.xls", IO.SearchOption.AllDirectories)
' Your method to pull back results
Next