VBA - Searching for EXCEL files in various folders help

[epactheactor]

Hello!

First, thank you for reading. I've used VBA tons of times in the past to make my life easier, but now I'm actually studying Programming to get a degree in it so I know what it is that I'm doing instead of recording macros or modifying code. The issue is that at this point in my studies, I familiar with Python, so I am having trouble with the VBA language.

I was trying to create a Macro in which the user would input a string, then the macro would search 3 separate folders (A, B & C) and their subfolders for file names that would contain the string (be partial file name). The macro would then open said files.

All my attempts have failed. I've looked around the past few days, but haven't had any luck.

Here is the VBA code for the first folder (Folder A) that I've most recently tried (and failed). And because I'm been programmed to do so (ha, ha) I put the psuedocode I wrote for my macro underneath. Please forgive any rookie mistakes.

Thank you for any help.

 Sub allFolders()[/COLOR]

[COLOR=#333333]Dim tlcNumber As String[/COLOR]
[COLOR=#333333]Dim folderA As String[/COLOR]
[COLOR=#333333]Dim fileA As String[/COLOR]

[COLOR=#333333]tlcNumber = InputBox("Enter TLC in either X-XX, XX-XX or XX-XXX format()")[/COLOR]
[COLOR=#333333]folderA = "\\file path"[/COLOR]
[COLOR=#333333]fileA = Dir(folderA & "\*.xlsm")[/COLOR]
[COLOR=#333333]Do Until fileA = ""[/COLOR]
[COLOR=#333333]Workbook.Open Filename:=tlcNumber & "" & fileA[/COLOR]
[COLOR=#333333]fileA = Dir[/COLOR]
[COLOR=#333333]Loop[/COLOR]

[COLOR=#333333]End Sub [code][/COLOR]





[COLOR=#333333]All Folders Psuedocode
[/COLOR][Code]
[COLOR=#333333]//Declare variables[/COLOR]
[COLOR=#333333]Declare String tlcNumber[/COLOR]

[COLOR=#333333]//global constants as the location will never change[/COLOR]
[COLOR=#333333]Set folderA = network location[/COLOR]
[COLOR=#333333]Set folderB = network location[/COLOR]
[COLOR=#333333]Set folderC = network location[/COLOR]

[COLOR=#333333]// Call Modules[/COLOR]
[COLOR=#333333]Call Main()[/COLOR]
[COLOR=#333333]Call findTLC(tlcNumber)[/COLOR]
[COLOR=#333333]Call openFiles(tlcNumber)[/COLOR]


[COLOR=#333333]Module findTLC (String tlcNumber)[/COLOR]
[COLOR=#333333]//To input the TLC for the line you are looking for[/COLOR]
[COLOR=#333333]Display “Enter the TLC to identify the line in XX-XX, X-XXX or XX-XXX format.”[/COLOR]
[COLOR=#333333]Input tlcNumber[/COLOR]

[COLOR=#333333]Module openFiles(tlcNumber)[/COLOR]
[COLOR=#333333]// Search the TLC number in the A folder and subfolders then open file[/COLOR]
[COLOR=#333333]Find(tlcNumber folderA)[/COLOR]
[COLOR=#333333]For files in folderA[/COLOR]
[COLOR=#333333]If tlcNumber name in file Then[/COLOR]
[COLOR=#333333]Open(file)[/COLOR]
[COLOR=#333333]Else [/COLOR]
[COLOR=#333333]Display “No file found”[/COLOR]

[COLOR=#333333]// Search the TLC number in the B folder and subfolders then open file[/COLOR]
[COLOR=#333333]Find(tlcNumber, folderB)[/COLOR]
[COLOR=#333333]For files in folderB[/COLOR]
[COLOR=#333333]If tlcNumber name in file Then[/COLOR]
[COLOR=#333333]Open(file)[/COLOR]
[COLOR=#333333]Else [/COLOR]
[COLOR=#333333]Display “No file found”[/COLOR]

[COLOR=#333333]// Search the TLC number in the C folder and subfolders then open file[/COLOR]
[COLOR=#333333]Find(tlcNumber, folderC)[/COLOR]
[COLOR=#333333]For files in folderC[/COLOR]
[COLOR=#333333]If tlcNumber name in file Then[/COLOR]
[COLOR=#333333]Open(file)[/COLOR]
[COLOR=#333333]Else [/COLOR]
[COLOR=#333333]Display “No file found”[/COLOR]
[COLOR=#333333]Call Main():

[Code][/COLOR]