Completely vanilla solution (handled completely by standard addtitions)
property lowerList : "abcdefghijklmnopqrstuvwxyz" --{"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
property upperList : {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"} --"ABCDEFGHIJKLMNOPQRSTUVWXYZ" --
set File_Location to ((choose folder with prompt "Select a Folder") as text)
--here change all files in that folder to ALL CAPS
set fileList to list folder File_Location without invisibles
repeat with thisFileName in fileList
set thisFileName to thisFileName as string
set charCount to the count of characters in thisFileName
set newName to ""
repeat with charNum from 1 to charCount
set thisChar to character charNum of thisFileName
try
set charPos to offset of thisChar in lowerList
--if it does not error or come back as 0 it was found
if charPos is not equal to 0 then
set newName to newName & item charPos of upperList as string
else
set newName to newName & thisChar as string
end if
on error
set newName to newName & thisChar as string
end try
end repeat
set thisFilePath to File_Location & thisFileName as string
set newName to change case of thisFileName to upper
try --it could fail if there is a folder present
tell application "Finder" to set the name of file thisFilePath to newName
on error
end try
end repeat
display dialog "Complete"
Non-Vanilla solution using click here–>ACME’s change case command<–click here
set File_Location to ((choose folder with prompt "Select a Folder") as text)
--here change all files in that folder to ALL CAPS
set fileList to list folder File_Location without invisibles
repeat with thisFileName in fileList
set thisFileName to thisFileName as string
set thisFilePath to File_Location & thisFileName as string
set newName to change case of thisFileName to upper
try --it could fail if there is a folder present
tell application "Finder" to set the name of file thisFilePath to newName
on error
end try
end repeat
display dialog "Complete"
Good luck,