如何解决AppleScript Focus /重命名文件然后单击任意位置
|on run {input}
set filepath to POSIX path of input
do shell script \"touch \" & quoted form of filepath & \"untitled\"
return input
end run
Finder.app
on run {input}
set filepath to POSIX path of input
do shell script \"touch \" & quoted form of filepath & \"untitled\"
tell application \"Finder\"
activate
set target of Finder window 1 to POSIX file \"/Users/oscargodson/Documents/designs/untitled\"
end tell
tell application \"System Events\"
tell process \"Finder\"
keystroke return
end tell
end tell
return input
end run
解决方法
这是一种方法。我认为在模态窗口中询问姓名会更好，但是您可以尝试一下。注意，在此代码中您未使用\“ POSIX path \”。 Applescript不使用POSIX路径。 {input}（如方括号所示）也是项目列表。因此，您对列表中的项目进行操作，在这种情况下，我们对第一个项目进行操作。
set filepath to item 1 of input
tell application \"Finder\"
activate
reveal filepath
end tell
tell application \"System Events\"
tell process \"Finder\"
keystroke return
end tell
end tell
on run {input}
if (class of input) is not list then set input to {input}
set theFolder to (item 1 of input) as text
try
alias theFolder
tell application \"Finder\"
if (class of item theFolder) is not folder then error \"input is not a folder.\"
activate
set theFile to make new file at folder theFolder with properties {name:\"untitled\"}
reveal theFile
end tell
delay 0.2
tell application \"System Events\"
tell process \"Finder\"
keystroke return
end tell
end tell
on error theError number errorNumber
tell me
activate
display dialog \"There was an error: \" & (errorNumber as text) & return & return & theError buttons {\"OK\"} default button 1 with icon stop
return
end tell
end try
return input
end run
tell application \"Finder\"
activate
reopen -- in case there are no open windows
set target of Finder window 1 to POSIX file \"/Applications/Safari.app\"
end tell
reveal
select
set target
set selection
on go(input)
set p to POSIX path of (input as text)
set p2 to p & \"untitled\"
do shell script \"touch \" & p2
tell application \"Finder\"
reopen
activate
set target of Finder window 1 to POSIX file p2
end tell
delay 0.3 -- time to release modifier keys
tell application \"System Events\" to keystroke return
end go
tell application \"Finder\"
set fold to folder (path to documents folder)
end tell
go(fold)
set file_name to \"untitled\"
set file_ext to \".txt\"
set is_desktop to false
-- get folder path and if we are in desktop (no folder opened)
try
tell application \"Finder\"
set this_folder to (folder of the front Finder window) as alias
end tell
on error
-- no open folder windows
set this_folder to path to desktop folder as alias
set is_desktop to true
end try
-- get the new file name (do not override an already existing file)
tell application \"System Events\"
set file_list to get the name of every disk item of this_folder
end tell
set new_file to file_name & file_ext
set x to 1
repeat
if new_file is in file_list then
set new_file to file_name & \" \" & x & file_ext
set x to x + 1
else
exit repeat
end if
end repeat
-- create and select the new file
tell application \"Finder\"
activate
set the_file to make new file at folder this_folder with properties {name:new_file}
if is_desktop is false then
reveal the_file
else
select window of desktop
set selection to the_file
delay 0.1
end if
end tell
-- press enter (rename)
tell application \"System Events\"
tell process \"Finder\"
keystroke return
end tell
end tell
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。