Hi all I have used this script but it doesnt work - any ideas? Dim FSO Set FSO = CreateObject("Scripting.FileSystemObject") If FSO = "bodykit0.txt" Then FSO.MoveFile "C:\Users\Lisa\desktop\bodykit0.txt", "C:\Users\Lisa\desktop\bodykitblack.txt" Endif If FSO = "bodykit1.txt" Then FSO.MoveFile "C:\Users\Lisa\desktop\bodykit1.txt", "C:\Users\Lisa\desktop\bodykitwhite.txt" Endif Set FSO = nothing I'm trying to look through a list of files and rename them based on their original name, there will be a number of files in the folder (it wont be my desktop ofc) and I want to rename them based on their number, so 0=black, 1=white etc etc... Any help GREATLY appreciated!!