Page 1 of 1

Fecha de mi aplicacion

Posted: Fri Jan 04, 2019 4:41 pm
by ASESORMIX
Estimados Colegas,
¿ Como puedo obtener La fecha de mi ejecutable ?

Gracias a Todos.

Re: Fecha de mi aplicacion

Posted: Fri Jan 04, 2019 5:56 pm
by SALINETAS24
Hola Asesomix.
Tienes dos funciones, aDir() y Directory()
Seria algo así.

Code: Select all

LOCAL aFichero:={}
aFichero:=DIRECTORY("NOMBREAPLIACION.EXE")
msgbox("Nombre",aFichero[1,1])
msgbox("Tamaño",aFichero[1,2])
msgbox("Fecha",aFichero[1,3])
msgbox("Hora",aFichero[1,4])


Re: Fecha de mi aplicacion

Posted: Fri Jan 04, 2019 6:00 pm
by ASESORMIX
Es Cierto. Muchas Gracias.

Re: Fecha de mi aplicacion

Posted: Sun Jan 13, 2019 1:44 pm
by Pepe Ruano
Un poquito más adornado, por si te sirve:

Code: Select all

*-----------------------------------------------------------------------------*
STATIC FUNC InfoPrograma()
*-----------------------------------------------------------------------------*
LOCAL aFichero:={}
aFichero:=DIRECTORY("TUPROGRAMA.EXE")

IF LEN(aFichero) <> 0
	MSGINFO("Nombre de la aplicación : "+UPPER(aFichero[1,1])+CHR(13)+CHR(13)+;
			"Tamaño del Fichero .....: "+TRANSFORM(STR(aFichero[1,2])," 9999,999")+" Bytes"+CHR(13)+CHR(13)+;
			"Fecha de Creación ......: "+DTOC(aFichero[1,3])+CHR(13)+CHR(13)+;
			"Hora de Creación .......: "+aFichero[1,4]+CHR(13)+CHR(13)+;
			"     Vers. 1.0  © Tu nombre Autor 2019 ","Datos de su Programa TUPROGRAMA")
   ELSE
	MSGINFO("No se ha encontrado Información del Programa")
ENDIF

Retu Nil
Espero te sea útil ;)

Re: Fecha de mi aplicacion

Posted: Sun Jan 13, 2019 3:23 pm
by mustafa
Hola amigo Pepe
Muy Bueno
Saludos
Mustafa

Re: Fecha de mi aplicacion

Posted: Sun Jan 13, 2019 7:03 pm
by Pepe Ruano
mustafa wrote: Sun Jan 13, 2019 3:23 pm Hola amigo Pepe
Muy Bueno
Saludos
Mustafa
Hola amigo Mustafa, te sigo en los posts que publicas (como siempre muy buenos) en esta gran comunidad llena de amigos y aprovecho para enviarte un gran saludo y desearte todo lo mejor para este 2019, al igual que a todos los componentes de HMGFORUM.