用于QuickTime参考文件的Quicktime Automator + Applescript

Question

我正在尝试创建一个Automator Droplet，它允许我将一个或多个视频文件传递给Applescript，然后使用QuickTime Player 7将“_ref.mov”附加到文件名后保存参考文件。

保存作为参考是默认的保存方法，这就是我没有使用save reference file函数的原因（因为我在using descriptors属性对象上找不到任何文档。）< / p>

我在另一个论坛上发现了这个脚本，但它确实有效，但它并没有完全满足我的需要，因为它要求1）文件是打开的，2）用户手动指定输出文件名。

on run {input, parameters}

    tell application "QuickTime Player 7"
        activate
        try
            if not (exists document 1) then display dialog "please open a quicktime movie." buttons {"cancel"} default button 1 with icon 1
            set theFile to (choose file name)
            save document 1 in theFile
            close document 1
        end try
    end tell

    return input
end run

我已尝试进行更改以完成我需要的操作，但我的更改会破坏脚本：

on run {input, parameters}

    tell application "QuickTime Player 7"
        activate
        try
            open input
            set theFile to ((path of input) & "_ref.mov))
            save document 1 in theFile
            close document 1
        end try
    end tell

    return input
end run

我也试过了：

set theFile to (((path of input) & "_ref.mov") as text)不起作用

as alias或as string

不知道我哪里出错了。如果可以，请帮忙！