On 7/31/04 12:35 PM, Norman W. Ferguson <[EMAIL PROTECTED]> wrote:

>> Anyone know offhand without doing research for me if, under OS9, the Get Info
>> Comment Box is Scriptable?   I need to batch process those Photoshop files in
>> folders mixed with other kinds of files and remove all info from any comment
>> box.

This script, saved as a droplet, should do the trick in OS 9:

on open thisFolder -- could be  multiple folders
    
    tell application "Finder"
        
        set folderItems to every item of thisFolder
        
        repeat with i from 1 to count folderItems
            
            my fixUp(item i of folderItems)
            
        end repeat
        
    end tell
    
end open

on fixUp(thisItem) -- delete comments
    
    tell application "Finder"
        
        set theseItems to every item of thisItem
        
        repeat with j from 1 to count theseItems
            
            set thisItem to item j of theseItems
            
            if kind of thisItem is not "folder" and creator type of thisItem
is "8BIM" then  -- watch line wraps in this line!
                
                -- delete its comment
                set comment of information window of thisItem to ""
                
            else
                
                my fixUp(thisItem) -- recursively dig into the folder(s)
                
            end if
            
        end repeat
        
    end tell
    
end fixUp

Hope that helps,

Bill


-- 
To unsubscribe:                     
<mailto:[EMAIL PROTECTED]>
archives:       
<http://www.mail-archive.com/entourage-talk%40lists.letterrip.com/>
old-archive:       
<http://www.mail-archive.com/entourage-talk%40lists.boingo.com/>

Reply via email to