FoxPro/Visual FoxPro - Cambiar de nombre a archivos

Hola amigos del foro.
Tengo un programa en el cual el usuario debe cambiar de nombre a los archivos guardados en carpetas diferentes. Para este própósito guardo en AntiguoNombre el nombre del archivo existente y en ArchivoNuevo el nuevo nombre que tendrá. luego utilizo el código:
RENAME (AntiguoNombre) TO (NuevoNombre)
Coloco paréntesis pues los nombres de archivos pueden contener espacios.
Hasta ahi todo bien, solo que los nuevos archivos siempre se cambian en minúsculas utilize UPPER pero de igual modo sigue cambiandose en minúsculas es muy importante para el usuario que se respete mayúsculas y minúsculas en los nuevos nombres que se pretende cambiar.
Espero sus respuestas y gracias de antemano.
Saludos

Puedes hacerlo con API o con WSH ... Te recomiendo API .. así

DECLARE SHORT MoveFile IN Win32API STRING, STRING

cRuta = "c:\CARPETA"
cRutaNew = cRuta + "New"
=Movefile(cRuta,cRutaNew )

Saludos

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia