IF dos THEN BEGIN
    dirlist=[saveroot+dd,'D:\CNSR3_DA\SAVE\']
    dptr=-1
    REPEAT BEGIN
        dptr=dptr+1
        dir=dirlist(dptr)
        HELP,dptr,dir
        template=filocate(dir,year,month,day,cam,filt,/verbose)
        ENDREP UNTIL (template NE '') OR (dptr EQ (N_ELEMENTS(dirlist)-1))
    ENDIF ELSE BEGIN
    dir=saveroot+dd
    template=filocate(dir,year,month,day,cam,filt,/verbose)
    ENDELSE