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

---

samples.basicStuff.changeIDs

«Changes all TeachText files in a folder to Microsoft Word files

local (f, folder)

if not file.getFolderDialog ("Choose a folder", @folder)

return

fileloop (f in folder, infinity)

if file.creator (f) equals 'ttxt'

file.setCreator (f, 'MSWD')

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