Obtener el Path actual

[abinfra]

Hola, con Clipper utilizaba para obtener el path actual en la variable cVia:
cVia:=GETENV('PATH')

Si dejo esta instrucción, el path que me sale comienza por:
C:\ProgramData\Oracle\Java\javapatch;C:\Windows\system32;........
que no es el que debe salir.

Con HMG, como puedo obtener el Path.

Gracias y saludos cordiales.

[danielmaximiliano]

El Path actual

[abinfra]

Perdona Daniel, pero no entiendo tu respuesta.

Concretamente que instrucción debo poner en HMG para obtener el path en el que me encuentre cuando ponga la instrucción?

[danielmaximiliano]

Mirando la Referencia de HMG encuentras lo que necesitas Abinfra.

GetCurrentFolder() --> cCurrentFolder

[abinfra]

Perdona mi ignorancia Daniel.
He puesto:
cVia := GetCurrentFolder()

Y al enlazar me dice:
Error: función referenciada, no encontrada, pero desconocida: GETCURRENTFOLDER()

[danielmaximiliano]

Funciona :

Code: Select all

#include <hmg.ch>



Function Main
Local nTask

	DEFINE WINDOW Win_1 ;
		AT 0,0 ;
		WIDTH 400 ;
		HEIGHT 400 ;
		TITLE 'Hello World!' ;
		MAIN 

		
	END WINDOW
    msgbox ("el directorio actual es "+ GetCurrentFolder(), "mensaje")
	ACTIVATE WINDOW Win_1

Return

[attachment=0]folder.png[/attachment]

[abinfra]

Hola Daniel estoy programando en modo consola, la función GetCurrentFolder() funciona en modo consola?

[danielmaximiliano]

Si. es una funcion de Windows

[pctoledo]

cVia:=DiskName() + ":\" + CurDir()

[abinfra]

Gracias.