vbscript - Script to move first 3 characters of filename to the end -

i have directory full of files need rename. each file, need take first 3 characters of filename , move them end of filename before extension. 003999999.wav become 999999003.wav.

the scripting language doesn't matter. needs work in windows. seems it'd easy script using vbscript , i'm doing reading, figured i'd see if has work.

edit - think i've found how this, except part on getting filename characters. here's have.

set objfso = createobject("scripting.filesystemobject") set objfolder = objfso.getfolder("c:\directory")   each strfile in objfolder.files arrnames = split(strfile.name, ".") if arrnames(1) = "mp3"      set objstart = objfso.range(0,3)     set objend = objfso.range(4,17)     strnewname = "c:\directory\" & objend.text & objstart.text & ".mp3"      objfso.movefile strfile.path, strnewname end if next 

try script. used simple string functions manipulate each filename.

'rename files '============ dim objfso, objfolder, strfile, intlength, firstthree, restofname, strnewname  set objfso = createobject("scripting.filesystemobject") set objfolder = objfso.getfolder("c:\directory")  each strfile in objfolder.files      'get files extension     if objfso.getextensionname(strfile.name) = "mp3"          'use instr location of "." , subtract 1 "."         intlength = instr(1,strfile.name,".",1)-1          'use left function first 3 characters of filename         firstthree = left(strfile.name,3)          'use mid function rest of filename subtract 3 file extension         restofname = mid(strfile.name,4,intlength -3)          strnewname = "c:\directory\" & restofname & firstthree & ".mp3"         objfso.movefile strfile.path, strnewname      end if next  wscript.echo "done!"