home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
YPA: Your Privacy Assured
/
YPA.ISO
/
other_goodies
/
utilities
/
abcdir.lha
/
Util
/
DIR
/
rexx
/
makeLikeFiles.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-05-02
|
539b
|
20 lines
/* simply create like files in T: directory to test RenameOther.rexx */
/* if run from MegaD change address to REXX to prevent return values
from being used as ARexx commands to MegaD
*/
ADDRESS REXX
name = 'T:likeFile'
number = 1
do 20
filename = name || RIGHT(number,2,'0')
SAY filename
OPEN('file',filename,'w');
WRITELN('file',number)
CLOSE('file')
/* un-comment if you want to test with a phony .info file for each file */
/* ADDRESS COMMAND COPY 'sys:system/shell.info' to filename || '.info' */
number = number + 1
end