<pre>on mouseUp  ---  ask "Folder name :" with "Untitled"  if it is empty or the result is cancel then return "cancelled"  put it into folderName  ---  answer folder "Select destination :"  if it is empty or the result is cancel then return "cancelled"  put it into destination  ---  makeFolder folderName,destination  ---end mouseUpon makeFolder folderName,destination  ---  put quote & folderName & quote into folderName  ---  put "set destLoc to" && "(" & quote & destination & quote && "as alias)" & return after scriptVar  put "tell application" && quote & "Finder" & quote & return after scriptVar  put indent(2) & "make new folder at" && destLoc && "with properties {name:" & folderName & "}" & return after scriptVar  put "end tell" after scriptVar  do scriptVar as appleScript  ---end makeFolder</pre>