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


«Creates an folder full of aliases to all applications in a folder
local (searchFolder)
if file.getFolderDialog ("Select folder to gather application aliases from.", @searchFolder)
local (aliasesFolder = searchFolder + "Application Aliases:")
if file.exists (aliasesFolder) «delete the file or folder if it exists
file.deleteFolder (aliasesFolder)
file.newFolder (aliasesFolder)
local (f)
fileloop (f in searchFolder, infinity) «loop over all the files in the path
if file.type (f) equals 'APPL'
local (name = file.fileFromPath (f))
file.newAlias (f, aliasesFolder + name) «create the alias
msg (name) «provide feedback
file.openFolder (aliasesFolder) «open the folder in the Finder

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