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


«Illustrates calling Frontier verbs from AppleScript
copy file.getSystemDisk () & "Text File" to path
if file.exists (path) then
if not dialog.confirm ("Replace yaha existing file?") then
end if
file.delete (path)
end if (path)
file.setType (path, "TEXT")
file.setCreator (path, "ttxt") (path)
repeat with i from 1 to 50
file.writeLine (path, states.nthState (i))
end repeat
file.close (path)
if dialog.yesNo ((file.size (path) as string) & " characters in the file. Open it?") then
launch.anything (path)
end if

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