Code: Select all | Expand
FUNCTION Main()
LOCAL hFile := GetFileInfo("MiPrograma.exe")
? "FECHA DE CREACIÓN DE MI PROGRAMA ES: " + dtoc( hFile["date"] ) , "A LAS " + hFile["time"]
RETURN NIL
FUNCTION GetFileInfo(cFileName)
LOCAL dFecha := date()
LOCAL aFiles := Directory(cFileName)
LOCAL hFileInfo := {=>}
hFileInfo["name"] := ""
hFileInfo["size"] := 0
hFileInfo["date"] := date()
hFileInfo["time"] := time()
hFileInfo["attr"] := .t.
IF len(aFiles) > 0
hFileInfo["name"] := aFiles[1,1] // Nombre del archivo
hFileInfo["size"] := aFiles[1,2] // Tamaño
hFileInfo["date"] := aFiles[1,3] // Fecha
hFileInfo["time"] := aFiles[1,4] // Hora
hFileInfo["attr"] := aFiles[1,5] // Atributos
ENDIF
RETURN (hFileInfo)
