FiveTech Software tech support forums

Posted: **Sat Oct 19, 2024 8:29 pm**

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

Posted: **Sat Oct 19, 2024 9:19 pm**

Code: Select all | Expand

RENAME <cOldFile> TO <cNewFile>

Posted: **Sun Oct 20, 2024 12:47 am**

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.

Posted: **Sun Oct 20, 2024 11:33 am**

Armando

Intenta así

Code: Select all | Expand

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

Posted: **Sun Oct 20, 2024 12:35 pm**

acuellar wrote:Armando

Intenta así
Code: Select all | Expand
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

// 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.

Posted: **Sun Oct 20, 2024 4:19 pm**

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

Posted: **Sun Oct 20, 2024 6:56 pm**

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

Posted: **Sun Oct 20, 2024 7:08 pm**

Armando wrote: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

#include "Fivewin.ch"


FUNCTION MAIN()

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

    RENAME MYTEST.ABC TO MYTEST.TXT

    RETURN NIL

Posted: **Mon Oct 21, 2024 12:38 am**

Así:

Code: Select all | Expand

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

Posted: **Mon Oct 28, 2024 7:36 am**

Code: Select all | Expand

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

Posted: **Mon Oct 28, 2024 4:20 pm**

Mr. Rao:

Thanks, I will try your advice

Regards

FiveTech Software tech support forums

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

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

Re: Cómo cambiar extensión a un archivo?

Re: Cómo cambiar extensión a un archivo?

Re: Cómo cambiar extensión a un archivo?

Re: Cómo cambiar extensión a un archivo?

Re: Cómo cambiar extensión a un archivo?

Re: Cómo cambiar extensión a un archivo?

Re: Cómo cambiar extensión a un archivo?

Re: Cómo cambiar extensión a un archivo?

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

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