Cómo cambiar extensión a un archivo? (SOLUCIONADO)

[Armando]

Amigos del foro:

Existe alguna función para cambiar la extensión a un archivo?

Algo Así

CambiaNombre(MiArchivo.Xlsx,MiArchivo.Txt)

O tengo que hacerlo con un BAT?

Saludos

[Enrico Maria Giordano]

Code: Select all  Expand view  RUN

RENAME <cOldFile> TO <cNewFile>

[cnavarro]

cFile := hb_FNameExtSet( cFullPath, cExt ) // Sets a new extension of a file, returns new full path.
cFile := hb_FNameExtSetDef( cFullPath, cExt ) // Sets a new extension of a file in case if it is absent, returns new full path.

[acuellar]

Armando

Intenta así

Code: Select all  Expand view  RUN

DBRENAME("C:\MiArchivo.Xlsx","MiArchivo.Txt")
 

[karinha]

Armando

Intenta así

Code: Select all  Expand view  RUN

DBRENAME("C:\MiArchivo.Xlsx","MiArchivo.Txt")
 

Excelente Adhemar, este comando, no lo conocía. Otro más de la colección. jajajaja.

Code: Select all  Expand view  RUN

// C:\FWH\SAMPLES\RENAMEAD.PRG

#include "FiveWin.ch"

FUNCTION Main()

   IF FILE( "C:\TMP\SILVIA.TXT" )

      DBRENAME( "C:\TMP\SILVIA.TXT", "ADHEMAR.TXT" )

   ELSE

      MsgInfo( "Archivo Inexistente", "Archivo Inexistente" )

   ENDIF

RETURN NIL
 

Reagrds, saludos.

[Armando]

Enrico, Cristóbal, Adhemar, Karinha:

Gracias a todos !

Wow, tengo varias alternativas, Esto es lo hermoso de este foro.

voy a probar y aviso.

Saludos

[Armando]

Amigos:

Comento los resultados

Con la sugerencia de Enrico, no me funcionó, tal vez no lo hice bien, gracias

Con la sugerencia de Cristóbal
? hb_FNameExtSet( oVar:FIL, "Txt")

Me muestra el archivo con la nueva extensión pero no cambia el archivo original
tal parece que deja una copia con la nueva extensión

Con la sugerencia de Adhemar
DBRENAME(oVar:FIL,"MiArchivo.Txt")

Funcionó como yo neceistaba, cambiar el nombre y extensión al archivo original.

Muchas gracias a todos

[Enrico Maria Giordano]

Con la sugerencia de Enrico, no me funcionó,

The command RENAME is the only standard rename command since the Clipper days. This is a working sample:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    MEMOWRIT( "MYTEST.ABC", "This is a test" )

    RENAME MYTEST.ABC TO MYTEST.TXT

    RETURN NIL

[cnavarro]

Así:

Code: Select all  Expand view  RUN

   local cFile  := "D:\fwh\FwhTeam\samples\test.txt"
   ? FRename( cFile, hb_FNameExtSet( cFile, ".src") )
 

[nageswaragunupudi]

Code: Select all  Expand view  RUN

cName := "MyFile.xlsx"
if FRename( cName, cFieSetExt( cName, "txt" ) ) != 0
   ? "Rename Error"
endif
 

cFileSetExt( cFile, cExt ) is one of the many filename functions of FWH, which existed from the inception of FWH.
Re: \fwh\source\function\filename.prg

[Armando]

Mr. Rao:

Thanks, I will try your advice

Regards