Похоже, свойство insertion location
приближается, может быть, достаточно близко.
insertion location (specifier, r/o) : the container in which a new folder would appear if “New Folder” was selected
tell application "Finder"
get insertion location
end tell
Result:
folder "Desktop" of folder "nad" of folder "Users" of startup disk of application "Finder"
Однако существует двусмысленность, если фокус находится на окне Finder, открытом в папку Desktop; это дает тот же результат, как если бы фокус был на фоне рабочего стола. Но, возможно, это не имеет значения для того, что вы хотите сделать.