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
Go to their vbScript area, and view index.
good luck!

Paul Prewett