>* Display Type, Name >Local loFile >FOR EACH loFile IN _vfp.ActiveProject.Files > IF LOWER(JUSTEXT(m.loFile.Name)) == 'bmp' > ? m.loFile.Type, m.loFile.Name > ENDIF >ENDFOR > >* Remove BMPs >Local lnFile >FOR lnFile = _vfp.ActiveProject.Files.Count TO 1 STEP -1 > IF LOWER(JUSTEXT(_vfp.ActiveProject.Files(m.lnFile).Name)) == 'bmp' > _vfp.ActiveProject.Files(m.lnFile).Remove() && optional lpDeleteFlag > ENDIF >ENDFOR >>