Mostrar los archivos que contiene un proyecto

Este codigo nos muestra cada uno de los archivos que componen un proyecto. para saber que tipo es el archivo, basta con consultar la tabla que esta al final.

_SCREEN.ADDPROPERTY('NUMERO',1)
LOCAL NUMERO, CADENA, CICLO, SELECCION
CLEAR
CADENA = ''
NUMERO = APPLICATION.PROJECTS.COUNT
SELECCION = 0
IF NUMERO = 0
 WAIT WINDOW "NO HAY NINGUN PROJECTO ABIERTO"
 RETURN
ENDIF
IF NUMERO > 1
 OBJETO = CREATEOBJECT('FORM')
 OBJETO.WINDOWTYPE = 1
 OBJETO.AUTOCENTER = .T.
 OBJETO.HEIGHT  = 135
 OBJETO.WIDTH = 380
 OBJETO.CAPTION = 'Proyectos Activos'
 OBJETO.ADDOBJECT('ETIQUETA','LABEL')
 OBJETO.ADDOBJECT('COMBO1','COMBOBOX')
 OBJETO.ADDOBJECT('aceptar','aceptar')
 OBJETO.ETIQUETA.CAPTION = 'Por Favor Seleccione el Proyecto que desea mostrar'
 OBJETO.ETIQUETA.AUTOSIZE = .T.
 OBJETO.COMBO1.WIDTH = OBJETO.WIDTH-15
 OBJETO.COMBO1.TOP = 50
 FOR CICLO = 1 TO NUMERO
  OBJETO.COMBO1.ADDITEM(ALLTRIM(APPLICATION.PROJECTS(CICLO).NAME),CICLO)
 ENDFOR
 OBJETO.SETALL('visible',.T.)
 OBJETO.COMBO1.VALUE = 1
 OBJETO.SHOW
 SELECCION = _SCREEN.NUMERO 
ENDIF

WITH APPLICATION.PROJECTS(SELECCION)
 ? "NOMBRE DEL PROYECTO: " + .NAME
 CANTIDAD = .FILES.COUNT
 FOR CICLO = 1 TO CANTIDAD
  ? 'Tipo: ' + ALLTRIM(.FILES(CICLO).TYPE) + ' Nombre: ' + ALLTRIM(.FILES(CICLO).NAME)
  IF INT(ciclo/30) =(ciclo/30)
   WAIT WINDOW 'PRESIONE UNA TECLA PARA CONTINUAR'
  ENDIF
 ENDFOR
ENDWITH

DEFINE CLASS ACEPTAR AS COMMANDBUTTON
 CAPTION = 'ACEPTAR'
 TOP    = 80
 LEFT   = 30
 HEIGHT = 35

 PROCEDURE CLICK
  _SCREEN.NUMERO =THIS.PARENT.COMBO1.VALUE
  THISFORM.RELEASE
 ENDPROC
ENDDEFINE

Valor	Constante FoxPro.H	Tipo de Archivo Y Extension
d	FILETYPE_DATABASE	Base de datos, .dbc
D	FILETYPE_FREETABLE	Tabla libre, .dbf
Q	FILETYPE_QUERY	Consulta, .qpr
K	FILETYPE_FORM	Formulario, .scx
R	FILETYPE_REPORT	Informe, .frx
B	FILETYPE_LABEL	Etiqueta, .lbx
V	FILETYPE_CLASSLIB	Biblioteca de clases visuales, .vcx
P	FILETYPE_PROGRAM	Programa, .prg
L	FILETYPE_APILIB	Biblioteca de vínculos dinámicos de Visual FoxPro, .fll
Z	FILETYPE_APPLICATION	Aplicación, .app
M	FILETYPE_MENU	Menú, .mnx
T	FILETYPE_TEXT	Archivo de texto, varias extensiones
x	FILETYPE_OTHER	Otros, varias extensiones

Jorge Mota