I’m trying to save out a .psd and .tif of currently opened document. This works (as ugly as it is), however what I really need is to save the psd with a .psd extension and the tif w/out the extension. The problem is that current document may or may not have an extension. Here’s what I have:
if the name of theObject is "psdtifSave" then
set the_date to do shell script "date \"+%m-%d-%y\""
--log the_date
set theDestination to "Safe " & the_date
tell application "Adobe Photoshop CS3"
set FileName to name of document 1
log FileName
end tell
tell application "Finder"
if not (the folder theDestination of desktop exists) then
make new folder at desktop with properties {name:"Safe " & the_date}
end if
if (the folder theDestination of desktop exists) then
beep
set thePath to "~/desktop/" & theDestination
end if
end tell
tell application "Adobe Photoshop CS3"
set MyFile to thePath & "/" & FileName
set myOptions to ¬
¬
{class:Photoshop save options, embed color profile:false, save spot colors:true, save alpha channels:true, save annotations:true, save layers:true}
save current document in file MyFile as Photoshop format with options ¬
myOptions without copying
set MyFile to thePath & "/" & FileName
set myOptions to ¬
¬
{class:TIFF save options, embed color profile:false, image compression:none, save layers:false, save spot colors:true} ¬
save current document in file MyFile as TIFF with options ¬
myOptions without copying
end tell
unfortunately this doesn’t hold the path and filename of the just saved TIF file.
Any ideas what the easiest way to do this? If I save the tif without the extension and the working doc is named “foo.psd” it will just save a tif out named “foo.psd”. Which sucks. 
thanksinadvance.