创建文件夹移动文件 - Applescript

Question

我正在寻找：

1. 从桌面移动文件夹

   1a。创建一个文件夹，将作业名称设置为返回的文本（显示对话框“请输入作业名称：”默认答案“作业名称”）

   1b。将文件夹从桌面放到 使用属性 {name:"Emails"} 在 newfo 处创建新文件夹

脚本：

set jobName to text returned of (display dialog "Please enter Job Name:" default     answer "Job_Name")
set loc to choose folder "Choose Parent Folder Location"

tell application "Finder"
set home_path to home as text
set source to alias (home_path & "Desktop:WorkingFolder")
set newfo to make new folder at loc with properties {name:jobName}
    make new folder at newfo with properties {name:"Emails"}

set destination to home_path & jobName

tell application "Finder" to duplicate source to destination with replacing
end tell

任何帮助将不胜感激。谢谢，

Answer 1

这是你想要达到的目标吗？

    set jobName to text returned of (display dialog "Please enter Job Name:" default answer "Job_Name")
set loc to choose folder with prompt "Choose Parent Folder Location"

tell application "Finder"
    set source to alias ((path to desktop as text) & "WorkingFolder:")
    set newfo to make new folder at loc with properties {name:jobName}
    make new folder at newfo with properties {name:"Emails"}
    set destination to make new folder at (path to home folder) with properties {name:jobName}
    tell application "Finder" to duplicate source to destination with replacing
end tell