How to Copy excel files from subfolder to another destination folder?

[swarupa]

I am new in VBA Code. My question is :

I have one folder A. In this A Folder having thousands of subfolders with different name. These subfolders having some excel files. I want to copy these excel files to another folder name B but not at one time. First I want to open my main folder A and then I will select any one of the subfolder which I want and then copy all excel files to folder B from subfolder which I was selected.

 

[swarupa]

Its give run time error 1004 for following line
Workbooks.Open Filename:="your file path" '"C:\Users\S\Desktop\C\*A.xls"

 

[swarupa]

Dear AC PORTA VIA Thanku very much.
Its works finally

 

[AC PORTA VIA]

You are welcome

 

[swarupa]

????