? _vfp.ActiveProject.Files["classes.prg"].Name ? _vfp.ActiveProject.Files["classes.prg"].Type ? _vfp.ActiveProject.Files["classes.prg"].Exclude FOR EACH oFile IN _vfp.ActiveProject.Files IF oFile.Type == "D" && do something ...