Idea is to select 10 files, prefix with numbers with the script below
but need to ADD the current date to the end of the file name.
myfilename.mp4 becomes 111 myfilename.mp4 CURRENT SCRIPT
myfilename.mp4 becomes 111 myfilename 2019-04-14 DESIRED NAMING SCRIPT
Option Explicit
Dim fileNum
fileNum = 0
Function OnGetNewName(ByRef getNewNameData)
Dim numPrefix
numPrefix = Array( 111, 147, 176, 222, 251, 297, 333, 355, 398, 405 )
If fileNum <= UBound(numPrefix) Then
OnGetNewName = numPrefix(fileNum) & " " & getNewNameData.newname
fileNum = fileNum + 1
Else
OnGetNewName = True
End If
End Function