new-text-file.applescript

new-text-file.applescript

on run {input, parameters}
	tell application "Finder"
		if (count of Finder windows) > 0 then
			set destinationFolder to target of front Finder window
		else
			set destinationFolder to desktop
		end if

		set fileName to "Untitled.txt"
		set counter to 2

		repeat while exists file fileName of destinationFolder
			set fileName to "Untitled " & counter & ".txt"
			set counter to counter + 1
		end repeat

		set newFile to make new file at destinationFolder ¬
			with properties {name:fileName}

		select newFile
		activate
	end tell

	return input
end run