AS_FolderPathListing ( _resultTOGlobalCellName ; _folderPath ; _extensionVL )

MAC ONLY. Generates Applescript to obtain folder listing & returns result as ValueList.

Average rating: 4.7 (31 votes) Log in to vote

ThomasSeidler - Show more from this author
The Good Book Company Ltd
http://www.thegoodbook.co.uk

Sample input:

Perform Applescript ( AS_FolderPathListing ( ":Macintosh HD:User:Shared:tmp:" ; "MyTable::GlobalField" ; "jpg¶jpeg" ) )

Perform Applescript ( AS_FolderPathListing ( "/Macintosh HD/User/Shared/tmp/" ; "" ; "" ) )

Sample output:

MyTable::GlobalField =>
File1.fp6
File2.rtf
FIle3.jpg
etc

[If _resultTOGlobalCellName blank, the result will be set to clipboard, so pasting into field is the option]

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

/* Parameters:
	_folderPath:  either in :Macintosh HD:form: or POSIX /Macintosh HD/form
	_resultTOGlobalCellName:  GetFieldName ( TableOccurrence::FieldName ) is a good use here, or leave empty and it will copy results to clipboard instead
	_extensionVL:  ValueList of extensions you wish to list (if left blank lists all) - e.g. "csv¶jpg¶jpeg"
*/

Let ( [
_TO = Left ( _resultTOGlobalCellName ; Position ( _resultTOGlobalCellName ; "::" ; 0 ; 1 ) - 1 ) ;
_resultCellName = Right ( _resultTOGlobalCellName ; Length ( _resultTOGlobalCellName ) - ( Position ( _resultTOGlobalCellName ; "::" ; 0 ; 1 ) + 1 ) ) ;
_folderPath = Substitute ( "/" & _folderPath & "/" ; ["//"; "/"] ; ["/" ; ":"] ; ["::"; ":"]) ;
_extensionVL = If ( Length (_extensionVL ) ; Substitute ( _extensionVL ; "¶" ; "\", \"" ) )
];

"tell application \"Finder\"¶
	set theItems to name of every item of ((file \"" & _folderPath & "\") as alias)¶"

& If ( Length(_extensionVL) ;
"	set theItemsFinal to {}¶
	set theExtensionList to {\"" & _extensionVL & "\"}¶
	repeat with i from 1 to number of items in theItems¶
		set theItem to item i of theItems¶
		set AppleScript's text item delimiters to \".\"¶
		set theItemParts to (every text item in theItem) as list¶
		set theExtension to last item of theItemParts¶
		if (theExtension is in theExtensionList) then¶
			set theItemsFinal to theItemsFinal & item i of theItems¶
		end if¶
	end repeat¶

	set AppleScript's text item delimiters to \"¶\"¶
	set theItems to theItemsFinal as text¶" ;
// END _extension section
"	set AppleScript's text item delimiters to \"¶\"¶
	set theItems to theItems as text¶" )
&

"	set AppleScript's text item delimiters to \" \"¶
end tell¶"
&

If ( IsEmpty ( _resultCellName ) ; "set the clipboard to theItems" ; "set cell \"" & _resultCellName & "\" of table \"" & _TO & "\" to theItems" ) & "¶activate"

)

_resultTOGlobalCellName must be the full reference (i.e. including TO) for a global field.

29 Sept 2011 - updated to handle file extension value list filter. By default unfiltered.

Comments

		Bruce Robertson Sep 15, 2011
Regarding having the field on the layout - I strongly prefer to use global fields to receive applescript results. Global fields do NOT need to be on the layout and do not need a reference to the current record. You only need a table (table occurrence) reference. Example: set cell "gResult" of table "Contacts" to "whatever"

		Thomas Seidler, London, UK Sep 16, 2011
Nice Bruce! As ever I can always learn from you, that's much much better. Yes, so we switch to global fields and away! Thank you sir! I will make the corrections to the function shortly...

		Ian Mazursky, New Rochelle, NY Sep 26, 2011
Hi Thomas! Thanks for the CF. I was wondering if it was possible to extend it to list subfolders also? Thanks, Ian

		Thomas Seidler, London, UK Sep 27, 2011
hi Ian, that's easily done within FM itself. Just create a loop that does it... gets listing for folderPath, then for each member of listing, requests listing with path folderPath & member. And so on... How would you want the data ideally? Value list of strings? It can be done, might hack it at some point if i find a need. If someone else wants to and submits code to me, i'll alter and give credit. http://macscripter.net/viewtopic.php?id=11362 That's an old way, apparently tis easier now. But no time...

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

AS_FolderPathListing ( _resultTOGlobalCellName ; _folderPath ; _extensionVL )

Comments

Support this website.

Support this website.