On 8/22/07 3:10 PM, Levon Spradlin wrote:

> I am trying to update an OS 9 script for Quark to use in OS X. I think I
> have the general idea down, but I know I am missing a few details. This
> script is supposed to check for images that are out of the 85-100% range and
> drop them into a sub-folder to correct. I have it working to the point of
> getting the Quark files and opening, then closing. What I am having trouble
> with is getting the script to communicate to the Finder that a new folder
> needs to be created if the files are out of the range. I am also having
> trouble updating the syntax to get the scale of the images in picture boxes.
> 
> If anyone has a bit of guidance, I would really appreciate it.
> 
> thanks,
> Levon
> 
> [applescript]
[snip]
> [/applescript]


The following version has a number of fixes that I felt were needed for
syntax and/or style. See if it works for you. You can compare the two
scripts to see what's different. Hopefully the changes and reasons for them
are somewhat obvious.

Stan C.


[applescript]
(**
This script does the following:
Open a folder and check the contents for Quark files
See if any art placed in picture boxes in Quark is less than 85% or greater
than 100%
Close without saving
Place these items in a sub-folder to manually correct
**)

set FileSample to (choose folder) as text
--set folderName to name of (info for FileSample)
tell application "Finder"
    set theFiles to files of folder FileSample whose name extension is in
{"qxd"} or kind contains "QuarkXPress" or file type is in {"XPRJ", "XPR3"}
end tell
repeat with oneFile in theFiles
    set oneFile to oneFile as text
    set needsAdjustment to false
    tell application "QuarkXPress"
        activate
        open file oneFile
        tell front document
            set docName to name
            repeat with i from 1 to count of picture boxes
                --try
                set theScale to scale of image 1 of picture box i as list
                set thisScale to (item 1 of theScale)
                --set imagePath to file path of image 1 of picture box i
                --set imageName to my pathName(imagePath)
                set thisScale to thisScale as real
                if thisScale is less than 85 or thisScale is greater than
100 then
                    set needsAdjustment to true
                end if
                --end try
            end repeat
            close saving no
        end tell
    end tell
    if needsAdjustment then
        tell application "Finder"
            if not (exists folder (FileSample & "Incorrectly Scaled
Files:")) then
                make new folder at folder FileSample with properties
{name:"Incorrectly Scaled Files"}
            end if
            move file oneFile to folder (FileSample & "Incorrectly Scaled
Files:")
        end tell
        activate
        with timeout of 3600 seconds
            display dialog "There are files out of scale range in the folder
'Incorrectly Scaled Files.' Please manually fix the files and then re-run
this script."
        end timeout
    end if
end repeat
[/applescript]