samples.appleScript.script4 samples.appleScript.script4
«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
return
end if
file.delete (path)
end if
file.new (path)
file.setType (path, "TEXT")
file.setCreator (path, "ttxt")
file.open (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 |