Rob van der Woude's Scripting Pages
Powered by GeSHi

Source code for upcase.kix

(view source code of upcase.kix as plain text) 

  1. ; UpCase.kix,  Version 2.00
  2. ; Kix script to convert filename to all upper case
  3. ; Written by Rob van der Woude
  4. ; http://www.robvanderwoude.com
  5.  
  6. if $filespec = ""
  7. 	goto Syntax
  8. endif
  9.  
  10. $filename = dir( $filespec )
  11. while $filename <> "" AND @error = 0
  12. 	$commandstring = "%COMSPEC% /C REN " + $filename + " " + ucase( $filename )
  13. 	shell $commandstring
  14. 	dir()
  15. loop
  16. quit 0
  17.  
  18. :Syntax
  19. ?
  20. ? "UpCase.kix,  Version 2.00"
  21. ? "Kix script to convert filename to all upper case"
  22. ? "Written by Rob van der Woude"
  23. ? "http://www.robvanderwoude.com"
  24. ?
  25. ? "Usage:  KIX32 UPCASE.KIX $FILESPEC=filespec"
  26. ?
  27. ? "Where:  filespec specifies the file(s) to be renamed."
  28. ? "        Wildcards are allowed, with the usual"
  29. ? "        restrictions imposed by NT's REName function."
  30. ?
  31. quit 1
  32.  

page last modified: 2024-04-16; loaded in 0.0048 seconds