on showModalSave:sender
　　set tmpExt to extList of sender as list
　　set tmpMsg to saveMsg of sender as string
　　set defName to saveName of sender as string
　　set tmpInit to initialDir of sender as string
　　
　　using terms from scripting additions
　　　　set startURL to current application’s NSURL’s fileURLWithPath:(tmpInit)
　　end using terms from
　　
　　set thePanel to current application’s NSSavePanel’s savePanel()
　　tell thePanel
　　　　its setMessage:(tmpMsg)
　　　　its setAllowedFileTypes:(tmpExt)
　　　　its setNameFieldStringValue:(defName)
　　　　its setShowsHiddenFiles:false
　　　　its setTreatsFilePackagesAsDirectories:false
　　　　–its setDirectoryURL:startURL–指定しないほうが前回呼び出し時と同じフォルダが表示されて便利
　　　　set returnCode to its runModal() as integer
　　end tell
　　
　　if returnCode = (current application’s NSFileHandlingPanelOKButton) as integer then
　　　　set my savePath to thePanel’s |URL|()’s |path|()
　　　　
　　　　if (thePanel’s respondsToSelector:"tagNames") as boolean then
　　　　　　set my saveTag to thePanel’s tagNames()
　　　　end if
　　　　
　　else
　　　　— cancel button
　　　　error -1
　　end if
end showModalSave:

★Click Here to Open This Script