Search within subfolders to copy files to another folder

Hello,


I borrowed some code from the KuTools in order to copy files based on a selection of cells in Excel to another folder. How do I go about modifying the code to search within subfolders in the main folder that I point to?


Example of usage of current code:

1. I would have the file names in column A.

2. I select the file names in column A and run the VB script

3. I get a pop up asking for the folder for the Original Folder

4. I point to the original folder

5. I get a pop up asking for the destination folder

6 Files get copied


However in step 3, how to modify the code to get files from subfolders so that I can just point to the "Main Folder"?


Folder Structure:

Main Folder

|

|___________folder1

|

|___________folder2


Any help will be sincerely appreciated!

Thanks!



Code

Please Login or Register  to view this content.