DECLARE INTEGER CopyFile IN KERNEL32.DLL ; STRING SourceFileName, ; STRING DestFileName, ; INTEGER bFailIfExists ADIR(laFile,'*.*','',1) FOR lnCompteur=1 TO ALEN(laFile,1) lcFile=laFile[lnCompteur,1] lcFileNew=UPPER(SUBSTR(lcFile,1,1))+SUBSTR(lcFile,2) RENAME laFile[lnCompteur,1] TO (lcFileNew+'a') CopyFile(laFile[lnCompteur,1]+'a',lcFileNew,0) NEXTThen, I removed the temporary files which have been renamed in order to keep the same name.