docs/mac/SetXMLCreator.applescript

   1 ---------------------------------------------------------------------------------
   2 -- Name:        docs/mac/SetXMLCreator.applescript
   3 -- Purpose:     Sets the creator types of the XML files
   4 -- Author:      Ryan Wilcox
   5 -- Modified by:
   6 -- Created:     2004-03-30
   7 -- RCS-ID:      $Id$
   8 -- Copyright:   (c) 2004 Ryan Wilcox
   9 -- Licence:     wxWindows licence
  10 --
  11 -- Press the run button and select the file you need (or, alternatively, save the
  12 -- script as an application drag-and-drop the files on top of it).
  13 ---------------------------------------------------------------------------------
  14
  15 on run
  16     set myFile to choose file
  17     open ({myFile})
  18 end run
  19
  20
  21 on open (fileList)
  22
  23     repeat with each in fileList
  24
  25         tell application "Finder"
  26             if name of each contains "M5" or name of each contains "M7" or name of each contains "M8" then
  27                 set creator type of each to "CWIE"
  28                 set file type of each to "TEXT"
  29
  30                 log "set"
  31             end if
  32
  33         end tell
  34     end repeat
  35 end open
  36