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
RENAME <cOldFile> TO <cNewFile>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 wrote:ArmandoExcelente Adhemar, este comando, no lo conoc铆a. Otro m谩s de la colecci贸n. jajajaja.
Intenta as铆DBRENAME("C:\MiArchivo.Xlsx","MiArchivo.Txt")
// 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 NILEnrico, Crist贸bal, Adhemar, Karinha:
Gracias a todos !
Wow, tengo varias alternativas, Esto es lo hermoso de este foro.
voy a probar y aviso.
Saludos
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
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:
#include "Fivewin.ch"
FUNCTION MAIN()
聽 聽 MEMOWRIT( "MYTEST.ABC", "This is a test" )
聽 聽 RENAME MYTEST.ABC TO MYTEST.TXT
聽 聽 RETURN NIL聽 聽local cFile 聽:= "D:\fwh\FwhTeam\samples\test.txt"
聽 聽? FRename( cFile, hb_FNameExtSet( cFile, ".src") )
cName := "MyFile.xlsx"
if FRename( cName, cFieSetExt( cName, "txt" ) ) != 0
聽 聽? "Rename Error"
endifMr. Rao:
Thanks, I will try your advice
Regards