FUNCTION GetFnPath, fileName=fileNa, idx=idx
;   ---------------------------------------------------------------
;   -------------------------------------------------------------
;   ON_ERROR, 2 ;force a return to caller if error occurs

        Print, '*** File: ', fileNa(idx), ' not found in default dir:'
        path = ''
        READ, 'Enter path to File or <cr> if you do not ' $
            + 'want to read file: ', path

    RETURN, path
    END