>hi all
>
>i try this code below it work, but i need to add - to the result..
>132002 i need to add 13-2002

How about

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