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

samples.basicStuff.fileloopTest

«Illustrates the use of Frontier's built-in "fileloop" construct
«this script unlocks all locked files in the System Folder
«no matter how deeply they are nested
local (folder = file.getSystemFolderPath (), count = 0, f)
fileloop (f in folder, infinity)
msg (file.fileFromPath (f))
if file.isLocked (f)
count++
file.unLock (f)
dialog.alert (count + " files unlocked.")


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