]>
Commit | Line | Data |
---|---|---|
61d6643f JS |
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 | ||
61d6643f JS |
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 |