tell application "Finder"
--Get source and destination folders
set sourceFolder to choose folder with prompt "Please choose a source folder for the files"
set destinationFolder to choose folder with prompt "Please choose a destination folder for the aliases"
set theItems to every item of sourceFolder
--Iterate through the items in sourceFolder
repeat
set nextItem to first item of theItems
--First check that the item is not destinationFolder so that we don't make aliases of the aliases
if (nextItem as string is not destinationFolder as string) then
if ((class of nextItem) is folder) then
--The item is a folder, so add its files to the end of the array
set theItems to theItems & every item of nextItem
else
--The item is a file, so make an alias of it in destinationFolder
tell application "Finder" to make alias to nextItem at destinationFolder
end if
end if
--Remove the item from the array, or exit from the loop if it's the last item
if ((count of theItems) is 1) then
exit repeat
else
set theItems to items 2 thru (count of theItems) of theItems
end if
end repeat
display dialog "Finished created aliases" buttons "OK" default button 1 with icon 1
end tell