AS_Folder_List ( FolderPath ; invisibles ; global_result_field )

list the content of a specific folder and returns the result to a FileMaker global text field. (Mac OS X only, AppleScript)

Average rating: 4.5 (17 votes) Log in to vote

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

Sample input:

Perform AppleScript [ AS_Folder_List ( Get ( DocumentsPath ) ; 0 ; table::text_field ) ]

Sample output:

all filenames inside the folder returning as list to a global field

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

/*
AS_Folder_List ( FolderPath ; invisibles ; global_result_field )

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

list the content of a specific folder and returns the resulting list of Filenames to a global FileMaker text field

FolderPath	:	the path for the folder to list its content (posix path or FileMaker Path)
				POSIX path:		"/Users/username/Documents/"
				FileMaker path:		Get ( DocumentsPath )
invisibles		:	1 = list also invisible items 
result_field	:	a FileMaker global field to return the result ( table::field ).
				the found set should at least contain 1 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.
*/

"set FMP_DB to \"" & Get ( FileName ) & "\"
¶set myResult to \"\"
¶set FolderPath to path_fmp_to_AppleScript(" & Quote ( FolderPath ) & ")
¶set theInvisibles to " & Case ( invisibles <> 1 ; 0 ; 1 ) & " = 1
¶
¶try
¶	set FMP_ID_CurrentRec to the ID of current record of database FMP_DB
¶on error number -1728
¶	display dialog \"No active records found in current table.\" with title \"error -1728\" buttons \"OK\" giving up after 3 default button 1
¶	(* AppleScript will be terminated using return *)
¶	return
¶end try
¶
¶set myList to AppleScript_List_To_FileMaker(list folder FolderPath invisibles theInvisibles)
¶
¶if myResult is not false then
¶	try
¶		return_value_to_FMP_GLOBAL_FIELD(FMP_DB, \"" & GetFieldName ( global_result_field ) & "\", myList)
¶	on error number -1728
¶		return_value_to_FMP_GLOBAL_FIELD(FMP_DB, \"" & global_result_field & "\", myList)
¶	end try
¶end if
¶
¶on return_value_to_FMP_GLOBAL_FIELD(DatabaseName, GlobalField, Value)
¶	(* version 6, Thomas Siebert, info@t-seabird.de, 23.04.2017, return a value to any FileMaker Global Field 
¶	CAUTION: \"tell application \"FileMaker Pro Advanced\"\" and the corresponding \"end tell\" has to be escaped as
¶	\"--tell application \"FileMaker Pro Advanced\"\" and \"--end tell\" *)
¶	set AppleScript's text item delimiters to \"::\"
¶	set the item_list to every text item of GlobalField
¶	set AppleScript's text item delimiters to \"\"
¶	set myList to item_list as list
¶	set TableName to item 1 of myList
¶	set GlobalFieldName to item 2 of myList
¶	
¶	--tell application \"FileMaker Pro Advanced\"
¶		try
¶			tell table TableName of database DatabaseName
¶				set cell GlobalFieldName to Value
¶			end tell
¶		on error number -10006
¶			display dialog \"No records in target table. \rThere should be at least 1 record.\"
¶		end try
¶	--end tell
¶end return_value_to_FMP_GLOBAL_FIELD
¶
¶on AppleScript_List_To_FileMaker(theList)
¶	(* version 2, Thomas Siebert, info@t-seabird.de, 19.01.2017,  AppleScript formated lists will be converted into FileMaker list format *)
¶	set theList to theList as list
¶	set AppleScript's text item delimiters to return
¶	return theList as string
¶end AppleScript_List_To_FileMaker
¶
¶on path_fmp_to_AppleScript(myPath)
¶	(* version 12, Thomas Siebert, info@t-seabird.de, 19.01.2017, FileMaker formated paths will be converted into AppleScript path format. *)
¶	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 as string
¶	end if
¶	return myPath
¶end path_fmp_to_AppleScript"

list the content of a specific folder by returning it into a FileMaker text field

FolderPath = the path for the folder to list its content
invisibles = list also invisible items
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 Dec 14, 2016
the CF now accepts either: table::field or "table::field" to deliver the field for the result returned.

		Thomas Siebert Jan 19, 2017
error message appears if no record is present or if path is not valid

		Thomas Siebert Apr 22, 2017
now the result field has to be a global textfield of any table.

		Thomas Siebert Apr 22, 2017
the function has been renamed

		Jon Jeffery, Linear Blue Jun 27, 2019
Note, in FM17 and later you have to have the fmextscriptaccess extended privilege checked, to allow AppleScript to write back to FileMaker

		Robert, Luxembourg Europe Jun 6, 2020
Is it possible to have the result in a variable?

		Thomas Siebert Jun 7, 2020
you can take the result from the global field and copy it to a variable. AppleScript in FileMaker has no command or function to set a variable. It is possible to use the AppleScript command from the mbs plugin but if you use the plugin you have also the file and folder functions of the plugin.

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

AS_Folder_List ( FolderPath ; invisibles ; global_result_field )

Comments

Support this website.

Support this website.