VBA to change the name of multiple files in multiple folders to include part of the folder name

[SideburnsJim]

I have hundreds of folders that all have the naming convention: "Organisation_2023_03_17_01_40_24" where "Organisation_" is constant, but "2023_03_17" refers to the date the files in the folder were created and "_01_40_24" refers to the time.

Within each folder there are 4 .txt files named: Organisation_balances, Organisation_categorisation, Organisation_events, Organisation_progress

I would like a VBA script that would allow me to select which folders I want to work with, and then change the name of the four files within each folder to use the date element of the folder. Eg; Organisation_balances.txt becomes Organisation_balances_2023_03_17.txt

Can someone please advise on how to do this?

Many thanks

 

[John_w]

Use FileDialog(msoFileDialogFolderPicker) to select a folder (full path), though it can only select one folder at a time so it would need to be in a loop to select multiple folders. Then use string functions like InStr and Mid to parse the last folder each full path to extract the date element and the Name statement to rename the .txt files.

 

[PeteWright]

Do you only want to rename those files? In this case you could use special software to do it.
Both, Total Commander (Shareware) and Free Commander (Freeware) have very powerful renaming utilities:

Total Commander Multi Rename Tool or Free Commander Multi Rename

If renaming files is your only concern, you could try one of those. Otherwise let me know.