Finder: archive several folders into separate archives?

i have several folders, let’s call them A, B, C, .
i want each folder turned into a separate zip archive:,,, .

i’ve searched far and wide, and i can’t find any such script anywhere. help?

Operating System: Mac OS X (10.5)


for example a droplet

property deleteOriginal : false

on open theseFolders
	repeat with oneFolder in theseFolders
		if (folder of (info for oneFolder)) then
			tell (POSIX path of oneFolder) to set {theSource, theDestination} to {it, it's text 1 thru -2 & ".zip"}
			do shell script ("/usr/bin/ditto -c -k " & quoted form of theSource & " " & quoted form of theDestination)
			if deleteOriginal then do shell script "/bin/rm -r " & quoted form of theSource
		end if
	end repeat
end open

perfect! thanks!