* !!!!!!!!! do a full backup !!!!!!!!! ProjectPack(GETFILE('pjx'),0) PROCEDURE ProjectPack(projectName,validateLevel) IF EMPTY(m.projectName) RETURN ENDIF CLOSE ALL SET EXCLUSIVE ON PRIVATE oFile,validateOld validateOld = SET("TABLEVALIDATE") SET TABLEVALIDATE TO EVL(m.validateLevel,0) USE (m.projectName) PACK USE MODIFY project (m.projectName) NOWAIT FOR EACH oFile IN _VFP.Application.ActiveProject.Files TRY IF m.oFile.Type $ 'dDQKRBV' USE (m.oFile.Name) WAIT WINDOWS m.oFile.Name TIMEOUT 0.1 PACK USE ENDIF CATCH ENDTRY ENDFOR WAIT CLEAR SET TABLEVALIDATE TO m.validateOld