Hello friend Andreas:
Thank you for your answer here I send the code:
Code: Select all
/**** FUNCIÓN RENOMBRAR UN GRÁFICO ****/
Function p_RenombrarGrafico()
GraficoCo$=FileRequest("Elige un gráfico a renombrar","jpg|png|bmp")
If GraficoCo$=""
SystemRequest("Aviso","No has elegido gráfico","OK",#REQICON_ERROR)
Else
FicheroRenombrar$=FilePart(GraficoCo$) ;Para extraer el nombre del gráfico desde la ruta-grafico-extensión.
DecideRenombrar=SystemRequest("Última Aviso","Estas seguro de querer renombrar el gráfico "..FicheroRenombrar$,"Si|No",#REQICON_QUESTION)
Switch DecideRenombrar
Case 1:
NuevoNombre$=StringRequest("Renombrar gráfico","Introduzca nuevo nombre, por favor".."\nEl viejo era:\n"..FicheroRenombrar$,"",#ALL,0,FALSE)
If NuevoNombre$=""
SystemRequest("Aviso Importante","Nombre vacio, sin caracteres","Vale|OK")
Else
Rename(GraficoCo$,NuevoNombre$)
SystemRequest("Hecho","Acabas de renombrar:".."\n"..FicheroRenombrar$.."\n".."A".."\n"..NuevoNombre$,"Vale",#REQICON_INFORMATION)
EndIf
Case 0:
SystemRequest("Salvado","No has renombrado el "..FicheroRenombrar$,"Vale",#REQICON_INFORMATION)
EndSwitch
EndIf
EndFunction
Best regards and thank you for your time and help.