(* alternative Finder "New Folder" behaviour *)<\/div>
tell application "Finder"<\/div>
set selectedItems to selection<\/div>
set firstItem to (first item in selectedItems)<\/div>
(* is the first item selected a folder? *)<\/div>
if ((class of firstItem) as text is equal to "Folder") then<\/div>
set theLocation to firstItem<\/div>
(* is it a folder on the desktop? *)<\/div>
if ((folder of firstItem) as text is equal to desktop as text) then<\/div>
(* user cancelled error: we want the default "New Folder" behaviour *)<\/div>
error number -128<\/div>
end if<\/div>
else<\/div>
set theLocation to folder of firstItem<\/div>
end if<\/div>
(* make new folder and select it *)<\/div>
set newFolder to make folder at theLocation<\/div>
set the selection to newFolder<\/div>
end tell<\/div><\/pre><\/div>\n \n <\/div>\n\n