List Folders With Certain Names

way of returning a list of folders that contain a user defined search string in their name. Eg., return all the folders within a directory/directories that have "x365" in the name.

I am searching through a list of over 6000 folders that are sitting in four different directories.

The following is the code i've come up with so far that creates an array called aFoundList containing all the folders that match my search string.


Sub TryOpenFolder_LoopingMethod()
Dim FSO As Scripting.FileSystemObject
Dim oFolder As Scripting.Folder
Dim vSubDir As Variant
Dim vSearchDir As Variant