dim fileName, temp, letters(), i, newName
fileName = "123.test"
temp = split(fileName,"."
redim letters(len(temp(0))
i = ubound(letters)
do while i >= lbound(letters)
newName = newName & letters(i)
i = i - 1
loop
newName = newName & temp(1)
You'll need to use the fileSystemObject to both get the fileName (where I just assigned it up there), and then just copy the file with the newName as the new file name, and then delete the old one.
You can find all the information you need about the fileSystemObject at
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.