choc-design

property extension_to_rename : {"webloc"}
property extension_to_exctract : {"xml"}

on open theDroppedItems
	repeat with a from 1 to count of theDroppedItems
		set theCurrentItem to item a of theDroppedItems
		tell application "Finder"
			set isFolder to folder (theCurrentItem as string) exists
		end tell
		-- Process a dropped folder