2 Answers
2

set thefolder to "path:to:folder" as alias
tell application "Finder"
set filename to name of first item of folder thefolder
set oldDels to AppleScript's text item delimiters as string
set AppleScript's text item delimiters to "." as string
set itemname to first text item of filename
set AppleScript's text item delimiters to oldDels as string
set name of thefolder to itemname
end tell

It gets the name of the first item in the folder, clips off the extension, and renames the folder.

Note that it doesn't convert to uppercase as in your example. This is less than trivial with AppleScript, but let me know if it's real important and I can give you the code.

The script works fine like this, but what if I have a 100 folders?
–
LiviuMay 25 '11 at 19:05

@Liviu Unless the 100 are in the same place, you'll have to do this to each of them. But, if each of the folders is in the same place (/Users/bob/Desktop/Folder1, /Users/bob/Desktop/Folder2, etc), we can automate it. Let me know whether or not all the folders are in the same place.
–
Nathan GreensteinMay 28 '11 at 16:21