| From: | Peter Fichtner |
| Date: | 22 Oct 99 at 18:48:58 |
| Subject: | Re: Filenumbering |
From: Peter Fichtner <peterfichtner@ibm.net>
This should be faster:
basedir = 'RAM:TEST'
if ~exists(basedir) then do
files = showdir(basedir,'D','0A'x)
do i=1 until i=0
/* you can't combine index-var with forever, so let's simulate an
"endless" loop */
/* you also could do i=i+1 at this place without the i in the do header
*/
tmp = basedir||'.'||i||'0A'x
if pos(tmp,files) = 0 then do
address 'COMMAND' 'MAKEDIR <>NIL:' tmp
leave
end
end
end
exit
Greetings
Peter
--------------------------- ONElist Sponsor ----------------------------
??? Computer Questions ==> Free Answers From Live Experts ! ! !
go to EXPERTCITY.COM
<a href=" http://clickme.onelist.com/ad/expertcity15 ">Click Here</a>
------------------------------------------------------------------------
ARexx mailing list - No flames, no overquoting, no crossposting. Unsubscribe: Blank mail to mailto:arexx-unsubscribe@onelist.com