Finder: Make alias

Scripting Forums Code Exchange
,
#1

(thx: Ric Latham) This makes an alias of the file on the desktop.

--Make Alias
tell application "Finder"
set theFile to input
set theAlias to make new alias file at desktop to theFile
end tell
#2

Try this…

set aliasFolder to path to desktop as text
set someFolder to (path to desktop as text) & "testFolder:"

tell application "Finder"
	set theFolders to folders of entire contents of folder someFolder
	repeat with thisFolder in theFolders
		set thisName to name of thisFolder
		
		if not (exists (alias file (aliasFolder & thisName))) then
			make new alias file at folder aliasFolder to thisFolder
		end if
	end repeat
end tell