我正试图使用AppleScript将文件夹复制到我的桌面,对其进行压缩,然后移动.zip文件到其他地方,但是我无法使压缩部分工作。
我已经搜索了各个地方以找到在AppleScript中压缩文件/文件夹的方法,但我不知道自己哪里错了,因为其中没有一个方法适用于我。
我也不想在复制了文件夹并压缩之后再选择文件夹,但我认为在修复压缩之前最好留下它们。
非常感谢您提供的任何帮助。
这是我的代码:(在得到djbazziewazzie的帮助后更新)
我已经搜索了各个地方以找到在AppleScript中压缩文件/文件夹的方法,但我不知道自己哪里错了,因为其中没有一个方法适用于我。
我也不想在复制了文件夹并压缩之后再选择文件夹,但我认为在修复压缩之前最好留下它们。
非常感谢您提供的任何帮助。
这是我的代码:(在得到djbazziewazzie的帮助后更新)
set workspace to (path to desktop as text) --"Users:produser:Desktop"
tell application "Finder"
display dialog "Select a folder to be zipped"
set inputFolder to choose folder
set inputFolderProperties to properties of inputFolder
set inputFolderName to name of inputFolder
duplicate inputFolder to workspace with properties --copy input folder to workspace
{name:inputFolderName} --keep the same name
--set copiedFile to (workspace & inputFolderName)
display dialog "Select the folders desktop copy"
set copiedFile to choose folder --select the file copy thats on the workspace
tell current application
set qpp to quoted form of POSIX path of copiedFile
do shell script "zip -r " & qpp & ".zip " & qpp -- zips the file (or not...)
end tell
display dialog "Select the .zip file" --select the new .zip file
set zipFile to choose file
display dialog "Select the output folder"
set outputFolder to choose folder --moves zipped file
move zipFile to outputFolder
end tell