Hi there, if you ever need a quick renamer of files in forlders – that is the VBA code you may use:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Option Explicit Sub ChangeNames() Dim fso As New filesystemobject Dim fol As Object Dim fil As Object Dim counter As Integer Dim digit As String Dim sname As String Set fol = fso.GetFolder("C:\Users\chinese") For Each fil In fol.Files counter = Len(fil.Name) Debug.Print fil.Name digit = Left(fil.Name, counter - 4) sname = digit & "_Chinese.mp3" fil.Name = sname Debug.Print sname Next End Sub |
What it does? It enters the directory “C:\users\chinese” and renames any file there adding “_Chinese” to its name.
We had files like this “4.mp3; 723.mp3” and we get something as “4_Chinese.mp4”, “723_Chinese.mp3”. This is useful, if you only have VBA and you need to code it!
So far so good! 🙂