Error Nº1: El archivo "" no existe
Estos desarrollando un programa para administrar pacientes, turnos y sesiones.
En mi computadora, el sistema funciona, pero al generar el ejecutable con el Installshield e instalarlo en la computadora del cliente, al intentar abrir algunos formularios me aparece una ventana con el siguiente error:
Error Nº1: El archivo """ no existe
¿En qué estoy fallando?
Desde ya, muchas gracias...
En mi computadora, el sistema funciona, pero al generar el ejecutable con el Installshield e instalarlo en la computadora del cliente, al intentar abrir algunos formularios me aparece una ventana con el siguiente error:
Error Nº1: El archivo """ no existe
¿En qué estoy fallando?
Desde ya, muchas gracias...
1 respuesta
Respuesta
1
Eso te debe estar pasando porque no toma bien las rutas de los archivos cuando ejecutas desde un .exe; proba de utilizar un código como el siguiente en tu programa o formulario principal de inicio:
Local lcDefaultPath
If _vfp.StartMode = 0 And ;
Type("_vfp.ActiveProject")=="O"
lcDefaultPath = _vfp.ActiveProject.HomeDir
Set Path To (Addbs(lcDefaultPath)) Additive
Else
*-Ejecuta por este camino cuando se trata de un ejecutable
lcDefaultPath = Sys(5)+Sys(2003)
lcDefaultPath = lcDefaultPath
Set Path To (Addbs(lcDefaultPath)) Additive
Endif
Set Path To (Addbs(lcDefaultPath)) Additive
Set Default To (lcDefaultPath)
Local lcDefaultPath
If _vfp.StartMode = 0 And ;
Type("_vfp.ActiveProject")=="O"
lcDefaultPath = _vfp.ActiveProject.HomeDir
Set Path To (Addbs(lcDefaultPath)) Additive
Else
*-Ejecuta por este camino cuando se trata de un ejecutable
lcDefaultPath = Sys(5)+Sys(2003)
lcDefaultPath = lcDefaultPath
Set Path To (Addbs(lcDefaultPath)) Additive
Endif
Set Path To (Addbs(lcDefaultPath)) Additive
Set Default To (lcDefaultPath)