home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / page11e.zip / upper.cmd < prev    next >
OS/2 REXX Batch file  |  1996-07-11  |  675b  |  24 lines
  1. /* rexx   */
  2. /* LOWER.CMD (c) Derek Clarkson */
  3.  
  4. call RXfuncAdd 'Sysloadfuncs', 'REXXUTIL', 'Sysloadfuncs'
  5. call sysloadfuncs
  6.  
  7. call sysfiletree "*.*", "files.", "FO"
  8.  
  9. address cmd "@ECHO OFF"
  10. address cmd "CLS"
  11. say " "
  12. say "Starting ...."
  13. do counter = 1 to files.0
  14.     if pos(" ", files.counter) > 0 then iterate
  15.     in_filename = filespec( "Name", files.counter )
  16.     out_filename = translate(in_filename)    
  17.     say "    Checking" in_filename
  18.     if in_filename \== out_filename then do
  19.         say "        Renaming" in_filename "to" out_filename
  20.         address cmd "rename" in_filename out_filename
  21.     end
  22. end
  23. say "----------------------------------------------------- Done."
  24. Exit