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

---

samples.basicStuff.debugaliases

«visit all the files in a folder you choose

«for each alias, be sure the file it points to exists

«if it finds a problem alias, the file is shown in the Finder

«and the script halts. if everything is cool, a dialog will

«appear, saying so.

local (folder)

if file.getfolderdialog ("Choose a folder to check", @folder)

fileloop (f in folder, infinity)

msg (file.filefrompath (f))

if file.isalias (f)

if not file.exists (file.followalias (f))

finder.reveal (f)

finder.bringtofront ()

scripterror (f + " points to a file that doesn't exist.")

dialog.alert ("All the aliases are cool.")

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