ADIR(laFile,'*.*','',1) FOR lnCompteur=1 TO ALEN(laFile,1) lcFile=laFile[lnCompteur,1] lcFileNew=UPPER(SUBSTR(lcFile,1,1))+SUBSTR(lcFile,2) MESSAGEBOX(lcFileNew) RENAME laFile[lnCompteur,1] TO (lcFileNew) NEXTI can see that the message box displays the file ok thus by having the first letter in uppercase. But, the file created is all in lowercase.