batch copy filename to alias

Does anybody have a script to batch copy document filenames to Aliases field?

I’ve looked through the current list and don’t see it specifically - but hoping someone has one or something close. Looking to use the existing file(doc) name as the alias- on large batches of documents
[ then create new filenames in a prescribed format- as a different script ]

any help greatly appreciated -

tell application id "DNtp"
	set theSelection to the selection
	repeat with thisItem in theSelection
		set the aliases of thisItem to the filename of thisItem
	end repeat
end tell

This will over ride all existing aliases. So, it will change your data and should be used with caution.

oh man- works like a charm;
u da man, korm- thanks so much- very much appreciated