do compose/deep[secure[(my-dir) allow]]
attention to the 'level in secure, this means, the compose is not evaluatet!
you have to hack a bit more :)
>> source secure
secure: native [
{Specify security policies (access levels and directories). Return prior settings.}
'level [word! block!] "Levels are: quit, throw, ask, and allow."
]
i suggest with default protection before:
do compose/deep[secure[net ask file ask (my-dir) allow]]
Volker
> > But if I try using:
>
> > downloaddir: %/d/anti%20virus%20downloads/
> > == %/d/anti%20virus%20downloads/
>
> > >> secure [downloaddir allow]
> > ** Script Error: Invalid argument: downloaddir.
> > ** Where: secure [downloaddir allow]
>
> > it doesn't. Shouldn't either way work?
>
> 'secure doesn't evaluate the block passed to it. Try using 'compose like
> this:
> secure compose [(downloaddir) allow]
> and see if that works better for you. Or you could do this:
>
> DirPermission: 'allow
> secure reduce [downloaddir DirPermission]
>
> 'reduce-ing the block first.
>
> Andrew Martin
> Fully condensed...
> ICQ: 26227169
> http://members.xoom.com/AndrewMartin/
> -><-
>
>
>
>
