AS_Photos_Export ( Export_Path ; options ; Album_Name )

export picture items from Photos.app to specified folder (macOS only)

Average rating: 3.3 (7 votes) Log in to vote

Thomas Siebert - Show more from this author
http://www.t-seabird.de

Sample input:

AS_Photos_Export ( Get ( DesktopPath ) & "Photos Export/" ; 1 ; "" )

Sample output:

Exporting selected pictures to the specified folder.

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
AS_Photos_Export ( Export_Path ; options ; Album_Name )

Options:
1 = selection
2 = album name
3 = last import album
4 = favorites album

version 1
---------------------------------------------
Thomas Siebert, 13.04.2017
info@t-seabird.de
www.t-seabird.de
---------------------------------------------

Export Pictures from Photos.app to a folder on your harddisk

U shall use a standard POSIX path or a common FileMaker paths like:
"filemac:" & Get ( DesktopPath ) & "file.csv"

The script removes prefixes like "filemac:" or the name of the start volume like "/Macintosh HD/" automatically.

Use the ScriptStep "Perform AppleScript" using the option "Calculated AppleScript"
You also shall use "Perform AppleScript" directly from a button.


Die Funktion kann auch FileMaker Pfade verarbeiten, z.B.:
"filemac:" & Get ( TemporaryPath ) & "file.csv"

Die CF wird über den Scriptschritt "AppleScript ausführen" mit der Option "Berechnetes Script" genutzt.
"AppleScript ausführen" steht auch direkt in den Tastenkommandos zur Verfügung.

*/


"set Ordnerpfad to path_to_posix(\"" & Export_Path & "\") as POSIX file as text
¶set AlbumName to \"" & Album_Name & "\"
¶set exportOption to " & options & "
¶set currentPhotos to \"\"
¶
¶tell application \"Photos\"
¶	if exportOption = 1 or exportOption = \"\" then
¶		set currentPhotos to get selection as list
¶	else if exportOption = 2 then
¶		set currentPhotos to get every media item of album AlbumName as list
¶	else if exportOption = 3 then
¶		set currentPhotos to get every media item of last import album as list
¶	else if exportOption = 4 then
¶		set currentPhotos to get every media item of favorites album as list
¶	end if
¶	export currentPhotos to (Ordnerpfad as alias) without using originals
¶end tell
¶
¶
¶
¶on path_to_posix(myPath)
¶	(* version 2, Thomas Siebert, info@t-seabird.de, 19.01.2017, convert FileMaker paths, AppleScript paths to POSIX Paths*)
¶	
¶	set myStartDisk to (path to startup disk) as string
¶	set myStartDiskLength to count myStartDisk
¶	
¶	if (get characters 1 thru myStartDiskLength of myPath as string) = myStartDisk then
¶		set myPath to POSIX file myPath as text
¶		
¶		set AppleScript's text item delimiters to \":\"
¶		set the item_list to every text item of myPath
¶		set AppleScript's text item delimiters to \"/\"
¶		set myPath to the item_list as string
¶		set AppleScript's text item delimiters to \"\"
¶		
¶	end if
¶	
¶	set myPath to POSIX file myPath as string
¶	
¶	set AppleScript's text item delimiters to myStartDisk & myStartDisk
¶	set the item_list to every text item of myPath
¶	set AppleScript's text item delimiters to myStartDisk
¶	set myPath to the item_list as string
¶	set AppleScript's text item delimiters to \"\"
¶	
¶	set myPath to POSIX path of myPath as text
¶	return myPath
¶end path_to_posix"

Export Pictures from Photos.app to a folder on your harddisk

Options:
1 = selected images
2 = album name
3 = "last import" album
4 = "favorites" album

U shall use a standard POSIX path or a common FileMaker paths like:
"filemac:" & Get ( DesktopPath ) & "Foldername/"

The script removes prefixes like "filemac:" or the name of the start volume like "/Macintosh HD/" automatically.

Use the ScriptStep "Perform AppleScript" using the option "Calculated AppleScript"
You also shall use "Perform AppleScript" directly from a button.

Comments

		Alex KÃ¶hler, DÃ¼sseldorf Apr 20, 2017
Dear Thomas! Thank you very much! It works very good! Have a nice Day! Cheers

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

AS_Photos_Export ( Export_Path ; options ; Album_Name )

Comments

Support this website.

Support this website.