>Use this:
>
>
> _useCustomIcon = &x0000010000000000
>
>CLEAR LOCAL
>LOCAL FN setFileBit (fileName$,volNum%, theBit&)
>  DIM pbBlk.80
>  DIM osErr%
>
>  pbBlk.ioNamePtr& = @fileName$
>  pbBlk.ioVRefNum% = volNum%
>  osErr% = FN GETFILEINFO (@pbBlk)
>  pbBlk.ioFinderInfo.fdFlags% = (pbBlk.ioFinderInfo.fdFlags% OR theBit&)
>  osErr% = FN SETFILEINFO (@pbBlk)
>END FN = osErr%
>
>fileName$ = FILES$(_fOpen,,,volNum%)
>
>LONG IF LEN(fileName$)
>  FN setFileBit (fileName$,volNum%, _useCustomIcon)
>END IF
>
>
>John


Thank you Michael, John and Rick.

I learn a lot when i see different
versions of the same function.

Sylvain