Kris Steenhaut wrote:

>
>Don{ald} O. Woodall schreef:
>
>  
>
>>    Where it does not help is when IBM put hundreds of Readonly files in
>>dozens if directories ten levels down.  In this situation a working
>>command line program would be far superior.
>>
>> 
>>
>>    
>>
>Maybe Andy's script could help, although I'm in doubt whther it will fix 
>directories or not.
>
>  
>
I thought it would get rid of the directory read only attributes but 
Kris's message here got me interested so I tested it and he is correct.  
Apparently my script to delete directories works because the readonly on 
a directory doesn't stop it from getting removed.  Here is the short 
script to get rid of the files readonly attribute though.

/* Remove readonly attribute recursively */
/* Define Rexx Functions */
call RxFuncAdd 'SysFileTree', 'RexxUtil', 'SysFileTree'
call SysFileTree Arg(1)'\*.*', 'file', 'BSO', '***+*', '***-*'  /* 
removes readonly bit */
exit

Andy

-- 
Warpstock 2004, Denver, Colorado, October 21 - 24, 2004
http://www.warpstock.org Volunteers:  please send note to
wsv2004{at}comcast.net



------------------------ Yahoo! Groups Sponsor --------------------~--> 
$9.95 domain names from Yahoo!. Register anything.
http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/E8folB/TM
--------------------------------------------------------------------~-> 

 
Yahoo! Groups Links

 To visit your group on the web, go to:
    http://groups.yahoo.com/group/os2user/

 To unsubscribe from this group, send an email to:
    os2user-unsubscribe{at}yahoogroups.com

 Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 




---