FoxPro/Visual FoxPro - Obtener ruta de mi directorio de VFP

 
Vista:
Imágen de perfil de Yogui

Obtener ruta de mi directorio de VFP

Publicado por Yogui (79 intervenciones) el 01/10/2014 20:56:03
¡Hola!
Quiero obtener la dirección completa de donde se aloja mi proyecto, y lo conseguí con esto

1
2
nombre=(JUSTPATH(GETDIR()))
=messagebox(nombre)

Sin embargo tengo que presionar la tecla "Seleccionar", lo que quisiera es que no me pida que seleccione sino que de frente me lance la dirección sin que me salga esa ventana de diálogo.

Espero sus respuestas, gracias :)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Obtener ruta de mi directorio de VFP

Publicado por Fidel José (558 intervenciones) el 01/10/2014 22:16:26
Opciones:
* 1 con Visual Fox
lcRuta=Fullpath("")

* 2 con Wscript (con una función de usuario)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
LcRuta=MiCurdir()
 
PROCEDURE MICURDIR
LPARAMETERS lVerbose
****************************
* lVerbose .t. informa
* Determinar el directorio actual por Wscript
**********************************************
LOCAL cdir
objShell=CreateObject("Wscript.Shell")
cDir=objShell.CurrentDirectory
if lVerbose
	Messagebox(cDir,0,"Directorio Actual")
endif
objShell=.null.
release objShell
return cDir
ENDPROC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
Imágen de perfil de Yogui

Obtener ruta de mi directorio de VFP

Publicado por Yogui (79 intervenciones) el 02/10/2014 18:54:22
¡Fidel!
Siempre salvándome el pellejo, con el fullpath fue suficiente :)
Muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar