Mal flink Dateien im Finder verschieben

Ich sortiere gerade meine zig Dateien und Ordner, die ich in den letzten Monaten angelegt habe. Ein Bild hier, ein nettes Tool dort… und hey, diesen Text wollte ich noch lesen.
Ich bezweifle, dass ich alles von dem Zeug noch brauchen werde, aber um wenigstens die paar Dinge wieder zu finden und halbwegs geordnet abzulegen, habe ich mir ein kleines Skript geschrieben,

mit dem ich die Auswahl im Finder in einen beliebigen Unterordner verschieben kann. Ggf. kann ich den auch noch darüber erstellen.

Das Ding habe ich mir jetzt über FastScripts auf einen Short-Cut gelegt und flux ist der der Finder um das Feature -> Bewege Auswahl in Unterordner XY reicher =)

Code zum markieren einmal anklicken oder Code im Skript-Editor öffnen

–hubionmac.com 05.09.2009

tell application “Finder”

set myfolder to container of ((item 1 of (selection as list)) as alias)

set folderlist to (name of every container of myfolder)

end tell

set selectionNames to getSelectionNames()

set folderlist to BubbleSort(folderlist)

set folderlist to {“—-NewFolder—-“} & CheckupLists(folderlist, selectionNames)

tell application “Finder”

set theaction to choose from list folderlist default items {item 1 of folderlist}

if theactionfalse then

if theaction as text = (item 1 of folderlist) as text then

set foldername to text returned of (display dialog “New folder name?” default answer “new folder”)

set thefolder to make new folder at myfolder with properties {name:foldername}

move selection to thefolder

else

move selection to folder (theaction as text) of myfolder

end if

end if

end tell

on BubbleSort(theList)

if class of theList is list then

set theSize to length of theList

repeat with i from 1 to theSize

repeat with j from 2 to (theSizei + 1)

if ((item (j – 1) of theList) > (item j of theList)) then

set temp to (item (j – 1) of theList)

set (item (j – 1) of theList) to (item j of theList)

set (item j of theList) to temp

end if

end repeat

end repeat

return theList

else

return false

end if

end BubbleSort

on getSelectionNames()

tell application “Finder”

set b to {}

repeat with a in (selection as list)

set b to b & name of a

end repeat

end tell

return b

end getSelectionNames

on CheckupLists(folderlist, selectionNames)

set ff to {}

repeat with f in folderlist

if selectionNames does not contain f then

set ff to ff & f

end if

end repeat

return ff

end CheckupLists