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: SetXMLCreator.applescript 26486 2004-03-30 10:26:17Z JS $
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
15on run
16    set myFile to choose file
17    open ({myFile})
18end run
19
20
21on 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
35end open
36
37