Clipper/FiveWin - Renombrar fichero

Hola a todos.
¿ Se puede renombrar un fichero del que solo conozco la extensión, que es .wri y renombrarlo a .txt.?

En caso afirmativo, partiendo del siguiente código, ¿cómo puedo poner como igualar el nombre del fichero .wri a una variable para renombrarlo?:
IF !FILE(cDirRem+"\*.wri")
ALERT( "No existe ningún fichero *.wri",,C_ALERT )
RETU NIL
ELSE
cFicWri:= ¿?
IF FRENAME( '&cDirRem\&cFicWri',;
'&cDirRem\DevRec.txt' ) == -1
ALERT( "No se ha podido renombrar el FICHERO *.wri",,C_ALERT )
RETU NIL
ENDIF
ENDIF

El comando Frename() renombra los ficheros uno a uno con lo que es necesario todo el nombre.

Hay dos formas de hacerlo:

Una es invocando el procesador de comandos y utilizar el REN o RENAME



La otra es utilizar la función DIRECTORY(). Te devuelve en una tabla la lista de ficheros con extensión WRI y con un FOR recorres la tabla renombrando cada fichero con el FRENAME()

Como supongo que ya sabes como se hace y no tengo más ganas de escribir porque además no recuerdo la sintaxis de algunas funciones esto es todo.

Saludos.

Gracias Antoni.

Saludos cordiales.