Hazel轻松管理文件-安装包自动新建同名文件夹并且移动

on run {input, parameters}
	if (count of input) < 3 then return
	--获取过来时间
	set filterTime to (item -2 of input) as number
	--获取目标目录
	set targetFolder to (item -1 of input)
	--待处理文件
	set input to items 1 through -3 of input
	set output to {}
	repeat with temp in the input -- 循环遍历没改安装包文件
		set anItem to temp as text
		set oneminutes to (current date) - filterTime * minutes
		tell application "System Events" to tell disk item anItem
			set relTargetPath to targetFolder
			--指定目录
			set theContainer to targetFolder
			set {theName, theExtension, theFileDate} to {name, name extension, creation date}
		end tell
		--过滤创建时间
		if theFileDate > oneminutes then
			if theExtension is in {"app", "dmg"} then
				--软件名称
				set theName to text 1 thru -((count theExtension) + 2) of theName -- the name part 
				--判断是否存在同名目录
				tell application "Finder" to set targetPathFileExists to exists folder ((targetFolder as text) & theName)
				--display dialog ((targetFolder & theName) as text)
				--display dialog ((targetPathFileExists) as text)
				if targetPathFileExists is true then
					set tempVar to display dialog "文件夹[" & theName & "] 已存在,是移动" buttons {"是", "否"}
					set theButtonPressed to button returned of tempVar
					if theButtonPressed = "是" then
						tell application "Finder"
							move temp to (targetFolder as text) & theName
							display notification "成功移动到:" & POSIX path of ((targetFolder as text) & theName) with title ("文件: " & theName as text)
						end tell
					end if
				else
					tell application "Finder"
						make new folder at folder theContainer with properties {name:theName}
						set end of output to result as alias
						move temp to result
						display notification "成功新建目录" & theName & "并且移动目录" & POSIX path of ((targetFolder as text) & theName) with title ("文件: " & theName as text)
					end tell
				end if
			end if
		end if
	end repeat
	return output -- or output 
end run