>oldFile = GetFile()
>IF .NOT. EMPTY(oldFile)
>** If You want to save the extension
>** Use this:  newFile = ADDBS(JUSTPATH(oldFile))+"NewFileName."+JUSTEXT(oldFile)
>
>   newFile = ADDBS(JUSTPATH(oldFile))+"NewFileName.EXT"
>   RENAME (oldFile) TO (newFile)
>ENDIF
>