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


«a general-purpose script for gathering aliases, see samples.basicStuff.appAliases for an example
on aliasGatherer (destfolder, searchpath, callback)
if file.exists (destfolder) «delete the file or folder if it exists
file.deleteFolder (destfolder)
file.newFolder (destfolder)
local (f)
fileloop (f in searchpath, infinity) «loop over all the files in the path
rollBeachBall ()
msg (file.fileFromPath (f))
if callback^ (f) «it matches the callback's criteria
local (destfile = destfolder + file.fileFromPath (f))
if file.exists (destfile)
file.delete (destfile)
file.newAlias (f, destfile) «create the alias
file.openFolder (destfolder)

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