AS_Folders_Choose ( message ; allow_multiple ; default_location ; invisibles ; package_contents ; result_field )

creates a dialog to choose one or more folders from a directory (macOS only)

Average rating: 4.2 (19 votes) Log in to vote

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

Sample input:

Perform AppleScript [ AS_choose_folders ( "Speak to the User" ; 1 ; Get ( DesktopPath ) ; 1 ; 1 ; table::textfield ) ]

Sample output:

choose one or more folders from the list dialog and return them to a text field of the current record

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

/*
AS_Folders_Choose ( message ; allow_multiple ; default_location ; invisibles ; package_contents ; result_field )

version 8
---------------------------------------------
Thomas Siebert, 23.04.2017
info@t-seabird.de
www.t-seabird.de
---------------------------------------------

creates a dialog to choose one or more folders 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
invisibles = show invisible items
package_contents = show contents of package folders
result_field = the FileMaker field to return the result ( table::field ) using the current record or a global field of any 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 newList to \"\"
¶set myResult to \"\"
¶
¶set theMessage to " & Quote ( message ) & "
¶
¶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 allow_multiple to " & allow_multiple & " = 1
¶set theInvisibles to " & invisibles & " = 1
¶set thePackageContent to " & package_contents & " = 1
¶
¶try
¶	set myResult to (choose folder with prompt theMessage multiple selections allowed allow_multiple default location default_location invisibles theInvisibles showing package contents thePackageContent) as list
¶	repeat with i from 1 to number of items in myResult
¶		set myPath to item i of myResult as text
¶		set newList to newList & path_AppleScript_to_FileMaker(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 ( result_field ) & "\", newList)
¶	on error number -1728
¶		return_value_to_FileMaker_field(\"" & result_field & "\", newList)
¶	end try
¶end if
¶
¶
¶on return_value_to_FileMaker_field(field_reference, Value)
¶	(* version 7, 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
¶	set currentTable to name of current table
¶	try
¶		if TableName = currentTable then
¶			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 -10006
¶		display dialog \"No records in target table. \rThere should be at least 1 record.\"
¶	end try
¶end return_value_to_FileMaker_field
¶
¶on path_AppleScript_to_FileMaker(myPath)
¶	(* FileMaker Pfade werden in Shell Pfade umgewandelt umgewandelt *)
¶	set myPath to POSIX file myPath as text
¶	
¶	set myStartDisk to ((path to startup disk)) as string
¶	
¶	set AppleScript's text item delimiters to \":\"
¶	set the item_list to every text item of myStartDisk
¶	set AppleScript's text item delimiters to \"\"
¶	set myStartDisk to the item_list as string
¶	set AppleScript's text item delimiters to \"\"
¶	
¶	set AppleScript's text item delimiters to \":\" & 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 \"\"
¶	
¶	return myPath
¶end path_AppleScript_to_FileMaker
¶
¶on path_fmp_to_AppleScript(myPath)
¶	(* FileMaker Pfade werden in AppleScript Pfade umgewandelt 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 folders 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
invisibles = show invisible items
package_contents = show contents of package folders
result_field = the FileMaker field to return the result ( table::field ) using the current record.

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.

Comments

		Thomas Siebert Apr 23, 2017
Function renamed new subroutine to return result to any global text field or to a text field of the current record.

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

AS_Folders_Choose ( message ; allow_multiple ; default_location ; invisibles ; package_contents ; result_field )

Comments

Support this website.

Support this website.