Anónimo
Error de Ruta al Guardar Archivo en Visual Fox
Qué tal Víctor...
Necesito me ayudes por favor en ésto:
* Tengo el siguiente código, que guarda un archivo a formato xls, pero el problema es que no se puede guadar por ejemplo en rutas como: C:\Archivos de programa\Mis Documentos, ya que existen espacios en el nombre de las carpetas.
vf = PutFile("NombFile","Datos1","xls")
*!* If Len(AllTrim(vf)) > 0
*!* If At(" ",AllTrim(vf)) = 0
*!* Wait Wind "Exportando Archivo..." NoWait
*!* Copy To &vf Type XLS
*!* Wait Wind "Exportación Finalizada..." NoWait
*!* Else
*!* vmsg = AllTrim(vf)+Chr(13)+Chr(13)+"Destino No Válido"+Chr(13)+Chr(13)+"Existe Caracter en Blanco..."
*!* =MessageBox(vmsg,0," Exportación de Datos")
*!* Endif
*!* Endif
Gracias por la ayuda y la oportunidad
Necesito me ayudes por favor en ésto:
* Tengo el siguiente código, que guarda un archivo a formato xls, pero el problema es que no se puede guadar por ejemplo en rutas como: C:\Archivos de programa\Mis Documentos, ya que existen espacios en el nombre de las carpetas.
vf = PutFile("NombFile","Datos1","xls")
*!* If Len(AllTrim(vf)) > 0
*!* If At(" ",AllTrim(vf)) = 0
*!* Wait Wind "Exportando Archivo..." NoWait
*!* Copy To &vf Type XLS
*!* Wait Wind "Exportación Finalizada..." NoWait
*!* Else
*!* vmsg = AllTrim(vf)+Chr(13)+Chr(13)+"Destino No Válido"+Chr(13)+Chr(13)+"Existe Caracter en Blanco..."
*!* =MessageBox(vmsg,0," Exportación de Datos")
*!* Endif
*!* Endif
Gracias por la ayuda y la oportunidad
1 Respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Ya estás filtrando en el cófigo con la instrucción If At(" ", AllTrim(vf)) = 0 y ese filtro no permite que se pueda guardar en destinos con espacio, si deseas que se puedan utilizar rutas con estpacio puedes intentar con algo similar a:
vf = PutFile("NombFile","Datos1","xls")
If Len(AllTrim(vf)) > 0
Wait Wind "Exportando Archivo..." NoWait
Copy To (vf) Type XLS
Wait Wind "Exportación Finalizada..." NoWait
Endif
vf = PutFile("NombFile","Datos1","xls")
If Len(AllTrim(vf)) > 0
Wait Wind "Exportando Archivo..." NoWait
Copy To (vf) Type XLS
Wait Wind "Exportación Finalizada..." NoWait
Endif