Finder: Make alias

(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

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