Fecha de mi aplicacion

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

Post Reply
ASESORMIX
Posts: 110
Joined: Thu Oct 25, 2012 8:08 pm
Location: Bqto, Venezuela
Been thanked: 6 times

Fecha de mi aplicacion

Post by ASESORMIX » Fri Jan 04, 2019 4:41 pm

Estimados Colegas,
¿ Como puedo obtener La fecha de mi ejecutable ?

Gracias a Todos.

User avatar
SALINETAS24
Posts: 365
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 30 times
Been thanked: 24 times

Post by SALINETAS24 » Fri Jan 04, 2019 5:56 pm

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])


ASESORMIX
Posts: 110
Joined: Thu Oct 25, 2012 8:08 pm
Location: Bqto, Venezuela
Been thanked: 6 times

Post by ASESORMIX » Fri Jan 04, 2019 6:00 pm

Es Cierto. Muchas Gracias.

User avatar
Pepe Ruano
Posts: 46
Joined: Fri Aug 16, 2013 11:31 am
DBs Used: DBF
Location: Almansa, Albacete - Spain
Has thanked: 7 times
Been thanked: 6 times
Contact:

Post by Pepe Ruano » Sun Jan 13, 2019 1:44 pm

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 ;)
Saludos - Regards
Pepe Ruano
hmg.ruano.org

User avatar
mustafa
Posts: 862
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Been thanked: 132 times
Contact:

Post by mustafa » Sun Jan 13, 2019 3:23 pm

Hola amigo Pepe
Muy Bueno
Saludos
Mustafa

User avatar
Pepe Ruano
Posts: 46
Joined: Fri Aug 16, 2013 11:31 am
DBs Used: DBF
Location: Almansa, Albacete - Spain
Has thanked: 7 times
Been thanked: 6 times
Contact:

Post by Pepe Ruano » Sun Jan 13, 2019 7:03 pm

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.
Saludos - Regards
Pepe Ruano
hmg.ruano.org

Post Reply