myVar = STUFF(someExpression,3,0,"-") ><pre> >gnDbcnumber=ADIR(MyAllFiles,"d:\picture2002\*.*") > FOR i = 1 TO m.gnDbcnumber && Loop for number of databases > lcOK = "d:\picture2002\"+MyAllFiles(m.i,1) > NewName=CHRTRAN(m.lcok,"ÇÈ Ê Ë Ì Í Î Ï Ð Ñ Ò Ó Ô Õ Ö Ø Ù Ú Û Ý Þ ß á ã ä å æ í É Â Ä ì Æ Ã Á","") > NewName=""+left(m.NewName,4)+right(m.NewName,len(m.NewName)-4) > Rename (M.lcOK) to (m.NewName) > ENDFOR >>thanks