VBA循环遍历子文件夹以打开多个文件

I have a code that allows me to search through a file path and multiple subfolders to open a file however I want to be able to open multiple files which have a slightly different name e.g effect00001.dat or effect00014.dat however I'm not too sure howI have a code that allows me to search through