commentにファイル名を書き込む

on open inputList
	tell application "Finder"
		repeat with inputFile in inputList
			set comment of inputFile to name of inputFile
		end repeat
	end tell
end open