home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / page10.zip / LOWER.CMD < prev    next >
OS/2 REXX Batch file  |  1995-09-23  |  572b  |  18 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. do counter = 1 to files.0
  11.     if pos(" ", files.counter) > 0 then iterate
  12.     no_slash = translate(files.counter, " ", "\")
  13.     in_filename = word(no_slash, words(no_slash))
  14.     out_filename = translate(in_filename, "abcdefghijklmnopqrstuvwxyz", "ABCDEFGHIJKLMNOPQRSTUVWXYZ")    
  15.     say "Processing" in_filename "to" out_filename
  16.     address cmd "rename" in_filename out_filename
  17. end
  18.