<pre>on mouseUp  ---  answer file "Type of file :"  if it is empty or the result is cancel then return "cancelled"  put it into path  ---  ask "Which type :"  if it is empty or the result is cancel then return "cancelled"  put quote & it & quote into fileType  ---  setFileType path,fileType  ---end mouseUpon setFileType finderItem,fileType  put "set source to" && "(" & quote & finderItem & quote && "as alias)" & return after scriptVar  put "tell application" && quote & "Finder" & quote & return after scriptVar  put "set the file type of source to" && fileType & return after scriptVar  put "end tell" after scriptVar  do scriptVar as appleScriptend setFileType</pre>