Dim myScriptResult asStringmyScriptResult=AppleScriptTask('MyAppleScriptFile.applescript','myapplescripthandler','my parameter string') |
on myapplescripthandler(paramString)#do something with paramString return 'You told me ' & paramString end myapplescripthandler |
Sub requestFileAccess()'Declare Variables Dim fileAccessGranted As Boolean Dim filePermissionCandidates 'Create an arraywith file paths forwhich permissions are neededfilePermissionCandidates=Array('/Users//Desktop/test1.txt','/Users//Desktop/test2.txt')'Request access from user fileAccessGranted = GrantAccessToMultipleFiles(filePermissionCandidates) 'returns trueifaccess granted,otherwise,falseEndSub |
Sub VersionConditionals()#If MAC_OFFICE_VERSION >= 15 Then Debug.Print 'We are running on Mac 15+' #Else Debug.Print 'We are not running on Mac 15+' #End If #If Mac Then Debug.Print 'We are running on a Mac' #Else Debug.Print 'We are not running on a Mac' #End If End Sub |