Filenames getting truncated in Save for Web AppleScript

Question

Hey all, running CS4 on an Apple Macbook Pro (using OS X 10.5.6). I am creating an AppleScript that saves out a number of files with different filenames using save for web. The problem is that Photoshop CS4 is truncating the filename, and using a shorter filename is not an option (there is identifying info in the filename that I need to retain). Is there a way within the script I can set it to allow longer filenames? My current save for the web script line looks as follows:
export current document in file filename as save for web with options {quality:60, web format:JPEG}
What happens is that a filename like this:
CANON-PRO8000MKII-ideal-ideal-24.jpg
gets cut down to this:
CANON-PRO8000MKII-ideal-ideal#0
I believe that there there is a PShop bug here that has a hard-coded limit on the filename, but which does not happen if you enter  the file name manually: if I go into the save for web dialog and enter the full filename, it works fine.  Any ideas?

Answer 1

I recall having this problem too, my solution was to truncate the file name in the script prior to the save, then rename the saved file.
e.g.
if length of theNewFileName > 31 then
set theTempFileName to theNewFileName
set theNewFileName to (text 1 through (31 - (length of theFileExtension) - 1) of theNewFileName & "." & theFileExtension) as string
end if
set theNewFile to (saveToFolder & theNewFileName) as string
-- Save the file here
if theTempFileName = "" then
-- File name wasn't truncated
else
-- Rename truncated file
tell application "Finder"
try
set name of (theNewFile as alias) to theTempFileName
on error errMsg number ERRNUM
display dialog "Error renaming file - " & errMsg
end try
end tell
end if