* 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 ENDFORhth