VBA Batch Renaming of Files

[unknownymous]

Hi Excel Gurus,

I'm looking for some post here regarding naming of files but can't find a suitable one.

Basically I have these folders on my documents:

Folder 1: Math
Folder 2: Science
Folder 3: History

Inside the folders are different files like in the form of PDF, Excel, Text,jpg and Word. Example of files inside "Math folder":

Pupil1.xls
Pupil2.txt
Pupil3.docx
Pupil4.pdf

I was thinking to create a macro renaming the files by batch:

Macro Worksheet:

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Folder Name[/TD]
[TD]Folder Directory[/TD]
[TD]Date[/TD]
[TD]Macro Button[/TD]
[/TR]
[TR]
[TD]Math[/TD]
[TD]F:\User\unknown\Documents\Math[/TD]
[TD]063019[/TD]
[TD]Click Macro[/TD]
[/TR]
[TR]
[TD]Science[/TD]
[TD]F:\User\unknown\Documents\Science[/TD]
[TD]063019[/TD]
[TD]Click Macro[/TD]
[/TR]
[TR]
[TD]History[/TD]
[TD]F:\User\unknown\Documents\History[/TD]
[TD]063019[/TD]
[TD]Click Macro[/TD]
[/TR]
</tbody>[/TABLE]

Sample Output saved on the same folder (for Math):

Pupil1-Math-063019.xls
Pupil2-Math-063019.txt
Pupil3-Math-063019.docx
Pupil4-Math-063019.pdf

The Folder name was added= "-Math" & Date "-063019" in the file.


Any thoughts will be much appreciated.

 

[unknownymous]

I meant rename the file not the folder name