Addition to gist

addendum.scpt

property Downloads : "Macintosh HD:Users:clayallsopp:Downloads:"

on run
	tell application "Finder"
		set d to Downloads as alias
		set folder_contents to every file in d
		repeat with eachitem in folder_contents
			if (name of eachitem ends with ".html") then
				move eachitem to folder WebDev
			end if
			... etc etc
		end repeat
	end tell
end run