MacOS X script to setup a desktop folder for all new screen shots and to move existing Screen Shots to this folder. Created for a coworker and wrapped in an app

Screen Shot Setup

tell application "Finder"
	set p to path to desktop -- Or whatever path you want
	make new folder at p with properties {name:"ScreenCaps"}
end tell
do shell script "defaults write com.apple.screencapture type -string png"
do shell script "defaults write com.apple.screencapture disable-shadow -boolean-neg"
do shell script "defaults write com.apple.screencapture location ~/Desktop/ScreenCaps"

tell application "System Events"
	move (every file of desktop folder whose name starts with "Screen Shot") to "~/Desktop/ScreenCaps"
end tell