ZipDroplet

gistfile1.scpt

on open (theItems) --receive items dropped onto droplet as a list
	with timeout of 1000000 seconds
		try
			tell application "Finder"
				--repeat the command to compress each item as an individual archive
				repeat with oneItem in theItems
					set itemProp to properties of oneItem
					set itemPath to quoted form of POSIX path of oneItem
					set fileName to name of oneItem
					set theFolder to POSIX path of (container of oneItem as alias)
					set zipFile to quoted form of (theFolder & fileName & ".zip")
					set itemName to name of oneItem
					do shell script ¬
						("cd " & itemPath & "; cd ..; zip -r " & zipFile & " " & fileName & " -x '*.DS_Store'")
				end repeat
			end tell
		on error errmsg
			display dialog errmsg
		end try
	end timeout
end open