Multiple CSV Importer

Hi all,

I have multiple excels file, multiple folders and multiple CSV files.

e.g.
Folder name: 2013-05-01
Content:
- test1.csv
- test2.csv
- test3.csv

Folder name: 2013-05-02
Content:
- test1.csv
- test2.csv
- test3.csv

Folder name: 2013-05-03
Content:
- test1.csv
- test2.csv
- test3.csv

Folder name: 2013-05-04
Content:
- test1.csv
- test2.csv
- test3.csv

Folder name: Test_Result
Content:
- test1.xls
- test2.xls
- test3.xls

How do I using VBA to import the above CSVs into the Test_Result folder xls file(by the same name as the CSV and append after last sheet of original xls) and named the sheet by the folder Date?

Thanks