search for a string in a filename that contains a date and move to subfolder for that date

Hi, first time poster, great info on this site!
I need a macro to search for a string in a filename that contains a date and move it to a subfolder for that date.
Issue: 6 teams each have a folder with around 5,000 spreadsheets. Filenames are in the following format: LastName, FirstInitial. MM-DD-YYYY- Rev -000.xlsm. The filepath is long, so I’ll represent as M:\A\B\D\E\F\G\Team 1\Staff Summaries. The range of dates in the filename is from 2013 to present.
Goal: I need to organize the files to a folder by year, with monthly subfolders.
I have a macro cobbled together from this and other sites to create the folder and subfolders in the Staff Summaries folder so that I’ll have a folder named 2013 with monthly subfolders, and so on, through 2017. It creates the folder and subfolders in a user defined file path.

Please Login or Register  to view this content.

Can someone create a macro or modify the above to move each file to the appropriate subfolder based on the date that’s in the filename? For example, the file named Smith, J. 03-15-2015- Rev -001.xlsm residing in M:\A\B\D\E\F\G\Team 1\Staff Summaries needs to be moved to M:\A\B\D\E\F\G\Team 1\Staff Summaries\2015\Mar.

Thanks, Dave

Try this

Please Login or Register  to view this content.

Thanks AlphaFrog and jindon for your input. I'll test these with test data. I have 6 teams with about 5000 files each and this will defiantly be a lot better than manually sorting the files.

So far both solutions are working well. The test data is 24,055 files. Execution times are similar at around 50 seconds. AlphFrog's code worked as he wrote it but I slightly modified it regarding the SourceFolder variable by changing it to ParentFolder in order to use the path already referenced from the selection in the Folder Dialog Box. This works for my situation since the resulting subfolders need to be created in the originally chosen path.

I didn't modify jindon's code because I'm not familiar with arrays and it already creates the folders in the appropriate path. The result produced by jindon's code revealed an error made by one of the staff. I was surprised to see a folder for 1983 in the result. Somehow, one of the staff coded her file with the year 1983.

Anyway, I am happy with both responses. Thank you both for excellent solutions.