this is sort of related but i can not figure out why this will not work
tell application “Finder”
set theLooseitems to every item of desktop whose kind is not “Volume”
set the loosefiles to every item of theLooseitems whose label index is not 4
set theNewFolder to (make new folder at desktop with properties {name:“roundup_Folder”})
move theLooseFiles to theNewFolder
end tell