home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 35 Internet
/
35-Internet.zip
/
page11e.zip
/
lower.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-07-11
|
735b
|
24 lines
/* rexx */
/* LOWER.CMD (c) Derek Clarkson */
call RXfuncAdd 'Sysloadfuncs', 'REXXUTIL', 'Sysloadfuncs'
call sysloadfuncs
call sysfiletree "*.*", "files.", "FO"
address cmd "@ECHO OFF"
address cmd "CLS"
say " "
say "Starting ...."
do counter = 1 to files.0
if pos(" ", files.counter) > 0 then iterate
in_filename = filespec( "Name", files.counter )
out_filename = translate(in_filename, "abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ")
say " Checking" in_filename
if in_filename \== out_filename then do
say " Renaming" in_filename "to" out_filename
address cmd "rename" in_filename out_filename
end
end
say "----------------------------------------------------- Done."
Exit