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