AppleScript for Apple Contacts: Export all contacts as individual vCards

contacts2vcard.applescript

-- requires a folder "vCards" on the user desktop
--
set desktopPath to (path to the desktop folder as string) & "vCards"
alias desktopPath

tell application "Contacts"
	repeat with cardPerson in people
		set nameOfvCard to name of cardPerson & ".vcf"
		set outFile to (open for access file (desktopPath & ":" & nameOfvCard) with write permission)
		write (vcard of cardPerson as text) to outFile
		close access outFile
	end repeat
end tell