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

---

samples.NewIn96.compareFolders

«compares two folders selected in the Finder

«if it runs without errors, the two folder structures are identical in every way

local (list = findermenu.getselectionlist ())

on compareFolders (folder1, folder2)

local (f)

fileloop (f in folder1)

local (otheritem = folder2 + file.fileFromPath (f))

msg (otheritem)

if file.isFolder (f)

compareFolders (f, otheritem)

else

if not file.compare (f, otheritem)

scriptError ("Found problem at " + f)

dialog.alert (compareFolders (list [1], list [2]))

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