Part of the Samples Website. 8/16/97.


«Creates a folder of aliases of apps that have an 'aete' resource
«contact the developers for a Frontier install file!
«or ask on one of UserLand's on-line services
local (folder = file.getSystemDisk () + "Scriptable Apps:")
file.sureFolder (folder) «make sure the folder exists
try «ignore errors in the loop
fileloop (f in "", infinity) «look at all files on all disks
if file.type (f) == 'APPL'
if rez.countResources (f, 'aete') > 0
local (alias = folder + file.fileFromPath (f))
if not file.exists (alias) «we'll take the 1st one we found
file.newAlias (f, alias)
Finder.reveal (folder) «show the folder in the Finder

This page was last built on Sat, Aug 16, 1997 at 6:35:37 PM. You can download the current set of sample scripts from our FTP site. Dave