2012-12-23

なんじゃこれは？？　という訳で、同記事を調べていたところ投稿欄に改良されたスクリプトが公開されていました。

http://hints.macworld.com/article.php?story=20100509134904820
Authored by: mihassan

前回のおさらい：
Launchpadから[その他]のグループアイコンの中にAutomatorがいるので起動。

サービスをクリックして[選択]ボタンを押す。

デフォルトだとこうなっているのでクリックして対象を
[ファイルまたはフォルダ]に変更しました。

前回は [フォルダ] のみにしてたけど、こうしといた方がフォルダだけじゃなく同一フォルダ内にある他のファイルの上で右クリックした場合でもファイル作成のメニューが出るから便利だと気づいたからです。

この辺りは前回と同じなので、既にスクリプトがある場合は、[最近使ったファイル]から呼び出して変更しましょう。

property defaultFileName : "newTextFile"

on run {input, parameters}
	
	try
		tell application "Finder" to set the sourceFolder to (folder of the front window) as alias
	on error
		-- no open folder windows
		set the sourceFolder to path to desktop folder as alias
	end try
	
	set flagFileExists to true
	set indexFile to ""
	
	repeat while flagFileExists
		set indexFile to (indexFile + 1)
		tell application "Finder"
			set flagFileExists to (exists file (defaultFileName & indexFile & ".txt") in sourceFolder)
		end tell
	end repeat
	
	try
		tell me
			activate
			set newFileName to text returned of (display dialog "Enter new file name" default answer "" & defaultFileName & indexFile)
		end tell
		if newFileName is not equal to "" & defaultFileName & indexFile then
			set defaultFileName to newFileName
		end if
		set newFile to "" & sourceFolder & newFileName & ".txt"
		
		if not flagFileExists then
			set touchScript to "touch " & quoted form of (POSIX path of newFile)
			set openScript to "open " & quoted form of (POSIX path of newFile)			
			do shell script touchScript
			do shell script openScript
		else
			display dialog "File already exists"
		end if
	end try
	return input
end run

ハンマーボタンを押してコンパイルしましょう。