Name PathFileName.ext As PathFileName_New.ext
http://www.sql.ru/forum/1216710/pereimenovanie-fayla-pod-vba