AS_Files_Choose ( message ; allow_multiple ; default_location ; file_type_list ; global_result_field )

dialog to choose one or more files from a directory and return result to a global field

Average rating: 4.1 (16 votes) Log in to vote

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

Sample input:

Perform AppleScript [ AS_Files_Choose ( "choose some files please" ; 1 ; Get ( DocumentsPath ) ; "" ; table::textfield ) ]

Sample output:

a list of file paths will be returned to the chosen global result field

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

/*
AS_Files_Choose ( message ; allow_multiple ; default_location ; file_type_list ; global_result_field )

version 11
---------------------------------------------
Thomas Siebert, 20.02.2018
info@t-seabird.de
www.t-seabird.de
---------------------------------------------

creates a dialog to choose one or more files from a directory

message = set a message on top of the window
allow_multiple = 1 or true to enable selection of multiple files using the command key
default_location = set a default location using standard FileMaker style path
file_type_list = set filters to allow selected file types as list "txt¶pdf"
global_result_field = the FileMaker field to return the result ( table::field ) using a global text field of any chosen table.

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

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 FMP_DB to \"" & Get ( FileName ) & "\"
¶set newList to \"\"
¶set myResult to \"\"
¶
¶set default_location to path_fmp_to_AppleScript(" & Quote ( default_location ) & ")
¶if default_location = \"\" then
¶	set default_location to (path to desktop folder)
¶end if
¶set file_type_list to fmpList_to_AppleScriptList(" & Quote ( file_type_list ) & ")
¶set allow_multiple to " & allow_multiple & " = 1
¶
¶
¶try
¶	set myResult to (choose file with prompt " & Quote ( message ) & " multiple selections allowed allow_multiple default location default_location of type file_type_list) as list
¶	repeat with i from 1 to number of items in myResult
¶		set myPath to (POSIX path of item i of myResult) as text
¶		set newList to newList & myPath & return
¶	end repeat
¶on error number -128
¶	set newList to \"error -128, canceled by user\"
¶end try
¶
¶if myResult is not false then
¶	try
¶		return_value_to_FileMaker_field(\"" & GetFieldName ( global_result_field ) & "\", newList)
¶	on error number -1728
¶		return_value_to_FileMaker_field(\"" & global_result_field & "\", newList)
¶	end try
¶end if
¶
¶on fmpList_to_AppleScriptList(myList)
¶	(* Change FileMaker list format to AppleScript list format *)
¶	set AppleScript's text item delimiters to ASCII character 166
¶	set the item_list to every text item of myList
¶	set AppleScript's text item delimiters to \"\\\", \\\"\"
¶	set myList to item_list as list
¶	set AppleScript's text item delimiters to \"\"
¶	return myList
¶end fmpList_to_AppleScriptList
¶
¶
¶on return_value_to_FileMaker_field(field_reference, Value)
¶	(* version 9, Thomas Siebert, info@t-seabird.de, 23.04.2017,  
¶	return a value to any FileMaker Field  (global or local) of the current table  
¶	or to a global field of any other table. *)
¶	set AppleScript's text item delimiters to \"::\"
¶	set the item_list to every text item of field_reference
¶	set AppleScript's text item delimiters to \"\"
¶	set myList to item_list as list
¶	set TableName to item 1 of myList
¶	set FieldName to item 2 of myList
¶	--tell application \"FileMaker Pro Advanced\"
¶		set currentTable to name of current table
¶		try
¶			if TableName = currentTable then
¶				save
¶				set cell FieldName of record ID (ID of current record) of table TableName to Value
¶			else
¶				set cell FieldName of table TableName to Value
¶			end if
¶		on error number the error_number
¶			if error_number = -10006 then
¶				display dialog \"No records in target table. \rThere should be at least 1 record.\"
¶			else if error_number = -10011 then
¶				display dialog \"Record lock conflict.\"
¶			end if
¶		end try
¶	--end tell
¶end return_value_to_FileMaker_field
¶
¶on path_fmp_to_AppleScript(myPath)
¶	(* FileMaker Pfade werden in AppleScript Pfade umgewandelt *)
¶	if myPath is not \"\" then
¶		set myPath to POSIX file myPath as string
¶		set myStartDisk to (path to startup disk) 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 alias myPath
¶		
¶	end if
¶	
¶	return myPath
¶end path_fmp_to_AppleScript"

creates a dialog to choose one or more files from a directory

message = set a message on top of the window
allow_multiple = 1 or true to enable selection of multiple files using the command key
default_location = set a default location using standard FileMaker style path
file_type_list = set filters to allow selected file types as list "txt¶pdf"
result_field = the FileMaker field to return the result ( table::field ) using the current record.

Comments

		Thomas Siebert Apr 22, 2017
- Name of CF changed - The field to return the script result should be a global text field

		Thomas Siebert Feb 20, 2018
better path's returning to FileMaker. better returning value to FileMaker

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

AS_Files_Choose ( message ; allow_multiple ; default_location ; file_type_list ; global_result_field )

Comments

Support this website.

Support this website.