>
>Hello Brian,
>
>I think you should provide the dirID to GetWDRefNum, I would try this:
>
>DIM iopb.52
>DIM OSErr
>LOCAL FN GetWDRefNum(volumeID%,dirID&,OSErrAddr&)
>   iopb.ioCompletion& = 0
>   iopb.ioNamePtr&    = 0
>   iopb.ioVRefNum%    = volumeID%
>   iopb.ioWDDirID&    = dirID&
>   iopb.ioWDProcID&   = _myProcID
>   OSErr = FN OPENWD(@iopb)
>   POKE WORD OSErrAddr&, OSErr
>END FN = iopb.ioVRefNum%
>
>LOCAL FN FindSomething (pbPtr&, searchStrPtr&)
>   DIM found%
>   DIM @ test%, OSErr%
>
>   found% = _false
>   LONG IF UCASE$(PSTR$(pbPtr&.ioNamePtr&)) = UCASE$(PSTR$(searchStrPtr&))
>     LONG IF pbPtr&.ioFlUsrWds.fdType& = _"TYPE" AND 
>pbPtr&.ioFlUsrWds.fdCreator& = _"CREA"
>       found% = _true
>       test% = FN GetWDRefNum(pbPtr&.ioVRefNum%,pbPtr&.ioDirID&,@OSErr%)
>     END IF
>   END IF
>   INSTR(0,UCASE$(PSTR$(pbPtr&.ioNamePtr&)),UCASE$(PSTR$(searchStrPtr&)))
>END FN = found%
>
>
>NSIH
>
>Cheers
>
>Alain
>

Alain - thanks! I remember trying dirID but I don't remember my 
results. It has been too long ago. I'll give it a shot. Thanks for 
the input, and thanks again for your Appearance Mgr donations.

Best Regards,

Brian