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

---

samples.basicStuff.aliasGatherer

«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