Fecha de mi aplicacion

General Help regarding HMG, Compilation, Linking, Samples

Moderator: Rathinagiri

Post Reply
ASESORMIX
Posts: 190
Joined: Thu Oct 25, 2012 8:08 pm
Location: Bqto, Venezuela

Fecha de mi aplicacion

Post by ASESORMIX »

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

Gracias a Todos.
User avatar
SALINETAS24
Posts: 667
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Contact:

Re: Fecha de mi aplicacion

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

Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:
ASESORMIX
Posts: 190
Joined: Thu Oct 25, 2012 8:08 pm
Location: Bqto, Venezuela

Re: Fecha de mi aplicacion

Post by ASESORMIX »

Es Cierto. Muchas Gracias.
User avatar
Pepe Ruano
Posts: 65
Joined: Fri Aug 16, 2013 11:31 am
DBs Used: DBF
Location: Almansa, Albacete - Spain
Contact:

Re: Fecha de mi aplicacion

Post 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 ;)
Saludos - Regards
Pepe Ruano
hmg.ruano.org
User avatar
mustafa
Posts: 1158
Joined: Fri Mar 20, 2009 11:38 am
DBs Used: DBF
Location: Alicante - Spain
Contact:

Re: Fecha de mi aplicacion

Post by mustafa »

Hola amigo Pepe
Muy Bueno
Saludos
Mustafa
User avatar
Pepe Ruano
Posts: 65
Joined: Fri Aug 16, 2013 11:31 am
DBs Used: DBF
Location: Almansa, Albacete - Spain
Contact:

Re: Fecha de mi aplicacion

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