adjusting code search files into folder and sub folder

[BIFanatic]

in case if the folder path specified is incorrect:

Const MyFolderPath      As String = "C:\Users\leopar\Desktop\search"