Fileタイプ変更のドロップレット

on open inputList
	tell application "Finder"
		repeat with inputFile in inputList
			my getMyFolder(inputFile)
		end repeat
	end tell
end open

on run
	set myFolder to choose file with prompt "ファイルを選択してください"
	my getMyFolder(myFolder)
end run

on getMyFolder(myFolder)
	tell application "Finder"
		set creator type of myFolder to "ART5" --"YoED"
		--set file type of myFolder to "TEXT" --"YoED"
	end tell
end getMyFolder

--★Illustrator
--set creator type of myFolder to "ART5"
--set file type of myFolder to "TEXT"
--★QXP
--set creator type of myFolder to "XPRa"
--set file type of myFolder to "XDOC"
--★mi
--set creator type of myFolder to "MMKE"
--set file type of myFolder to "TEXT"
--★Excel
--set creator type of myFolder to "XCEL"
--set file type of myFolder to "XLS8"
--★Word
--set creator type of myFolder to "MSWD"
--set file type of myFolder to "W8BN"
--★REALbasic
--set creator type of myFolder to "RBv2"
--set file type of myFolder to "RbBF"
--★Application
--set file type of myFolder to "APPL"