<pre>on mouseUp  answer file "Item to move :"  if it is empty or the result is cancel then return "cancelled"  put it into finderItem  put rootVolume() into toFolder  moveFinderItem finderItem,toFolderend mouseUpfunction rootVolume  put word 2 of the long name of this stack into root  delete first char of root  set itemDelimiter to ":"  return item 1 of rootend rootVolumeon moveFinderItem finderItem,toFolder  ---  put "set source to" && "(" & quote & finderItem & quote && "as alias)" & return after scriptVar  put "set destination to" && "(" & quote & toFolder & quote && "as alias)" & return after scriptVar  ---  put "tell application" && quote & "Finder" & quote & return after scriptVar  put indent(2) & "move" && source && "to folder" && destination & return after scriptVar  put "end tell" after scriptVar  ---  do scriptVar as appleScript  ---end moveFinderItem</pre>