thank you for reply,
how i can use it instead or with NewName=left(m.NewName,4)+right(m.NewName,len(m.NewName)-4)

>>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