IMHO answers to this post would be more dangerous than beneficial for the community.
The VBA code you're asking for will do a job that is easily achievable from Windows Explorer, so why coding such macro? Despite of this, that code looks like a first assignment of an old macro virus course for kids, which can be used to produce damages and data loss in computers, so I'm out.