Kortkommande till egen mapp i finder?

Spara detta som ett applescript i Skriptredigeraren, och använd Fast Scripts Lite för att ge det ett kortkommando.
Första gången du kör det får du peka ut mappen det är fråga om. Vill du byta mapp kan du öppna skriptet och spara om det, så är det "rensat".

property myfolder : ""
tell application "Finder"
	set O to true
	if myfolder is "" then
		set myfolder to (choose folder)
	end if
	set C to count windows
	if C > 0 then
		repeat with I from 1 to C
			set W to window I
			if collapsed of W is false then
				set target of W to myfolder
				set O to false
				exit repeat
			end if
		end repeat
		if O is true then
			open myfolder
		end if
	else
		open myfolder
	end if
end tell

FastScripts
Det verkar vara samma program numera.

Ingen orsak.