lcPath = sys(5) + curdir() gnCount = adir(gaTifs, '*.tif') for nCounter = 1 to gnCount rename (lcPath + gaTifs(nCounter,1)) to (lcPath + substr(gaTifs(nCounter,1)3,6)) endfor