I'm adding to my SFPGETFILE file filter.

Can anyone see any problems with:

LOCAL FN CGFcheckVersion
  DIM versRes&, vers%, rezFork
  DIM excludeFromList
  DIM 63 fname$

  excludeFromList = _zTrue

  fname$ = PSTR$(gCGFpBlk&.ioNamePtr&)

  REM did't seem to work: rezFork = FN OPENRFPERM(fName$,
gCGFpBlk&.ioVRefNum%, _fsRdPerm)
  rezFork = FN HOPENRESFILE(gCGFpBlk&.ioVRefNum%, [_Curdirstore], fName$,
_fsRdPerm)

  LONG IF rezFork <> -1 REM no error
    versRes& = FN pGget1Res(_"vers", 1, rezFork)
    IF versRes& = _nil THEN versRes& = FN pGget1Res(_"vers", 2, rezFork)

    LONG IF versRes&
      vers% = VAL(HEX$({[versRes&]}))             'convert to readable format
      CALL RELEASERESOURCE(versRes&)              'get rid of vers resource
      SELECT gCGFfinishVers%
        CASE > _nil                               'original
          IF vers% => gCGFstartVers% AND vers% <= gCGFfinishVers% THEN
excludeFromList = _false
        CASE = -1                                 'target
          IF vers% = gCGFstartVers% THEN excludeFromList = _false
      END SELECT
    END IF

    CALL CLOSERESFILE(rezFork)
  END IF
END FN = excludeFromList


I call it from my file filter ENTERPROC and so far it works and I just want
to be sure before I move on to the next part of the project.
The part I'm "concerned obout" is FN HOPENRESFILE