Jeu Videz votre presse-papier - Page 251

tell application "iPhoto"
	set theFolder to choose folder with prompt "Dossier cible"
	
	
	set thePhotos to the selection
	set theFilePaths to {}
	set posixFolder to (POSIX path of theFolder) as string
	do shell script "mkdir " & (quoted form of (posixFolder & "tn/")) & "2> /dev/null"
	set compteur to 0
	repeat with i from 1 to count of thePhotos
		set thePhoto to (item i of thePhotos)
		set rPath to image path of thePhoto as string
		set pPath to image path of thePhoto as POSIX file as string
		
		set pcomment to comment of thePhoto as string
		set pdate to date of thePhoto as string
		set pdimensions to dimensions of thePhoto as string
		set pheight to height of thePhoto as string
		set pid to id of thePhoto as string
		set pfilename to image filename of thePhoto as string
		set pfilepath to image path of thePhoto as string
		set pName to name of thePhoto as string
		set pthumbnailfilename to thumbnail filename of thePhoto as string
		set pthumbnailpath to thumbnail path of thePhoto as string
		set ptitle to title of thePhoto as string
		set pwidth to width of thePhoto as string
		set stringElement to "<picture>< path>" & pPath & "</path><date>" & pdate & "</date><width>" & pwidth & "</width><height>" & pheight & "</height><filename>" & pfilename & "</filename><name>" & pName & " </name><comment>" & pcomment & "</comment></picture>"
		do shell script "cp -f " & (quoted form of rPath) & " " & (quoted form of posixFolder)
		do shell script "/usr/local/bin/convert " & (quoted form of rPath) & " -resize 1280x960\> " & (quoted form of (posixFolder & pfilename))
		do shell script "/usr/local/bin/convert " & (quoted form of rPath) & " -resize 100x75\> " & (quoted form of (posixFolder & "tn/" & pfilename))
		do shell script "echo " & (quoted form of stringElement) & " > " & (quoted form of (posixFolder & pfilename & ".iph"))
		set compteur to compteur + 1
	end repeat
	display dialog "Exportation complète : " & (compteur as string) & " images exportées"
end tell