-- Put this in Library/PDF Services
-- You use it from the PDF button of your print dialog.
-- 
-- Written by Michael Heinz
--  
on open these_items
	repeat with i from 1 to the count of these_items
		set this_item to (item i of these_items)
		tell application "PDF2PSP"
			convert pdffile this_item overwrite yes
			set mydirectory to output directory
		end tell
		tell application "Finder"
			set srcfolder to (mydirectory & ":Print job" as alias)
			set destfolder to choose file name with prompt "Please give \"Print job\" a name" default location (mydirectory as alias)
			set AppleScript's text item delimiters to {":"}
			set destfolder to last word of (destfolder as string)
			set name of srcfolder to destfolder
		end tell
	end repeat
end open