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


«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