FileMaker Pro Custom Functions

/* VERSION: 1.1 [12.4.24] PARAMETERS _resultTOGlobalCellName: _prompt: String, apple documentation says 25 or 50 chars will show, though can take up to 255 in theory _defaultLocation: leave blank to choose desktop, or POSIX or Applescript folderpath, or path to documents folder etc Can't be bothered to code for Invisibles and multiple selections - who needs it!? self explanatory how to do it if you do */ Let ( [ _TO = Left ( _resultTOGlobalCellName ; Position ( _resultTOGlobalCellName ; "::" ; 0 ; 1 ) - 1 ) ; _resultCellName = Right ( _resultTOGlobalCellName ; Length ( _resultTOGlobalCellName ) - ( Position ( _resultTOGlobalCellName ; "::" ; 0 ; 1 ) + 1 ) ) ; _defaultLocation = Case ( IsEmpty(_defaultLocation) ; "" ; Position ( _defaultLocation ; ":" ; 0 ; 1) or Position ( _defaultLocation ; "/" ; 0 ; 1); "\"" & Substitute ( ":" & _defaultLocation & ":" ; ["::"; ":"] ; [":" ; "/"] ; ["//"; "/"]) & "\"") ] ; "tell application \"Finder\"¶ set theFolder to choose folder" & If ( Length(_prompt ) ; " with prompt \"" & _prompt & "\"" ) & " default location (" & If ( Length(_defaultLocation) ; _defaultLocation ; "path to desktop folder" ) & ")¶ set theFolderPath to theFolder as text¶ end tell¶" & If ( IsEmpty ( _resultCellName ) ; " set the clipboard to theFolderPath" ; " set the cell \"" & _resultCellName & "\" of table \"" & _TO & "\" to theFolderPath" ) & "¶activate" )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.