on adding folder items to this_folder after receiving added_items

repeat with added_item in added_items

tell application “Finder”

set timestamp to do shell script “date ‘+%Y-%m-%d@%H:%M:%S’”

if (comment of added_item) as text = “” then

set comment of added_item to timestamp

end if

end tell

end repeat

end adding folder items to

–Ordner-Aktion die alle betroffenen Dateien in einen anderen (neu erstellten Ordner

– verschiebt, dessen Name vorher abgefragt wird.

– dieser neue Ordner wird wiederum in einem anderen Ordner erstellt, von dem sich ein Alias

– in dem Ordner der Ordner-Aktion befindet.

– Befindet sich bereits eine Datei mit dem gleichen Namen im Zielverzeichnis,

– wird diese NICHT überschrieben, sondern die neue Datei wird entsprechend umbenannt (durchnummeriert).

– ehm, um wieviele verschiedene Ordner geht es hier eigentlich?

on adding folder items to this_folder after receiving these_items

try

tell application “Finder”

set folderkind to kind of folder 1 of startup disk

set aliascount to count of every alias file of (this_folder as reference)

–wenn der Alias des Zielordners vorhanden ist kann es weitergehen

if aliascount is 1 then

set destination_folder to (original item of alias file 1 of (this_folder as reference))

set destination_folder_posix to POSIX path of (destination_folder as alias)

–ist der Zielordner auch ein Ordner oder eine Datei? Dann Fehler!

if kind of destination_folder is not folderkind then

error “Hm, der Zielordner ist gar kein Ordner…”

end if

–Ordnernamen abfragen, der im Zielordner angelegt werden soll

set foldername to text returned of (display dialog “Bitte die Ausgabe und das Jahr angeben:” buttons {“Ok”} default button “Ok” default answer “Woche-Jahr”)

– den Ordner anlegen

do shell script “mkdir -p ” & quoted form of (destination_folder_posix & foldername)

– und jetzt jede Datei in den neu angelegten Zielordner bewegen, dabei aber auf doppelte Dateinamen achten und ggf. umbenennen

repeat with this_item in these_items

set item_name to name of this_item

set this_item_posix to POSIX path of (this_item as reference)

set uniq_name to my checkname_with_pdf_suffix(item_name, folder foldername of destination_folder, false)

do shell script “mv ” & quoted form of this_item_posix & ” ” & quoted form of (destination_folder_posix & foldername & “/” & uniq_name)

end repeat

else

error “Zielalias nicht vorhanden oder es gibt mehr als einen Alias…”

end if

end tell

on error msg

display dialog msg

end try

end adding folder items to

to checkname_with_pdf_suffix(n, D, looped)

–check if filename exists in D

– so if “A File.pdf” exists it names it “A File 1.pdf”,”A File 2.pdf”,…

tell application “Finder”

set thefiles to name of every item of (D as alias)

end tell

if thefiles contains n then

if looped = false then

set n to ((characters 1 through -5 of n) & ” 1″ & (characters -4 through -1 of n)) as text

my checkname_with_pdf_suffix(n, D, true)

else

set tmp to (last word of ((characters 1 through -5 of n) as text) as integer)

set tmpcount to (count of characters of (tmp as text)) + 5

set tmp to tmp + 1

set n to ((characters 1 through (-1 * tmpcount) of n) & tmp & (characters -4 through -1 of n)) as text

my checkname_with_pdf_suffix(n, D, true)

end if

else

return n

end if

end checkname_with_pdf_suffix

–hubionmac.com 08.09.2010

–set a folder’s name to creation date of one of it’s items…

–date string format 2010-01-01

set thefolder to choose folder

tell application “Finder”

set thedates to (creation date of every item of thefolder)

set item_dates to {}

repeat with a in thedates

if my make_dateString(a) is not in item_dates then

set item_dates to item_dates & my make_dateString(a)

end if

end repeat

– wenn also dateien von mehr als einem Tag in dem ordner stecken…

if (count of item_dates) > 1 then

set item_dates to choose from list item_dates with prompt “Oje, welche Datum soll ich denn nur nehmen…”

end if

set current_foldername to name of thefolder

set string_to_add to text returned of (display dialog “Soll noch etwas an den Ordner-Namen angehängt werden?

\”" & item_dates & ” ” & current_foldername & “\”" default answer current_foldername)

set newfoldername to item_dates & ” ” & string_to_add as text

set comment of thefolder to “Alter Name: \”" & current_foldername & “\”"

set name of thefolder to newfoldername

end tell

to make_dateString(thedate)

set themonth to characters -2 through -1 of (“0″ & (month of thedate as integer) as text)

set theyear to year of thedate

set theday to characters -2 through -1 of (“0″ & (day of thedate as integer) as text)

return theyear & “-” & themonth & “-” & theday as text

end make_dateString

– hubionmac.com 08.09.2010

–sets modification date of a folder to the latest modification date of its items

set thefolder to choose folder

tell application “Finder”

set thefiles to every item of thefolder

set thedates to (creation date of every item of thefolder)

set latest_date to modification date of item 1 of thefolder

repeat with i from 1 to (count of thefiles)

set current_item to item i of thefiles

if latest_date < (modification date of current_item) then

set latest_date to (modification date of (current_item as alias))

end if

end repeat

set modification date of thefolder to latest_date

end tell

–hubionmac.com >~2007 i think

–AppleScript Droplet to sort fieles into folders by creation date

on open these_items

set thelist to {make_dateString(current date, 1)} & {make_dateString(current date, 2)} & {make_dateString(current date, 3)} as list

choose from list thelist with prompt “Choose date format:”

if result as text = item 1 of thelist as text then

set theformat to 1

else if result as text = item 2 of thelist as text then

set theformat to 2

else if result as text = item 3 of thelist as text then

set theformat to 3

end if

repeat with this_item in these_items

tell application “Finder”

– set thedate to creation date of this_item

set thedate to modification date of this_item

set theLocation to quoted form of POSIX path of ((folder of this_item) as alias)

end tell

set foldername to make_dateString(thedate, theformat)

try

do shell script “cd ” & theLocation & “;mkdir ” & quoted form of foldername

end try

set the_item to quoted form of POSIX path of this_item

– 2008-05-26 -n Option add, so files are not overwritten

do shell script “cd ” & theLocation & “;mv -n ” & the_item & ” ./” & quoted form of foldername & “/”

end repeat

end open

on get_month_number(incomingDate)

– works with systems <OS X 10.4

copy incomingDate to b

set the month of b to January

set month_number to “0″ & (1 + (incomingDate – b + 1314864) div 2629728) as text

return (characters -2 through -1 of month_number) as text

end get_month_number

on make_dateString(thedate, theformat)

if theformat = 1 then

set theday to characters -2 through -1 of ((“0″ & day of thedate) as text) as text

set thestring to (year of thedate) & “-” & get_month_number(thedate) & “-” & theday

else if theformat = 2 then

set thestring to (year of thedate) & “-” & get_month_number(thedate)

else if theformat = 3 then

set thestring to (year of thedate)

end if

return thestring as text

end make_dateString

tell application “Finder”

set these to selection

set folderkind to kind of folder 1 of startup disk

set movetothisfolder to “”

repeat with this in these

if kind of this is folderkind then

if movetothisfolder = “” then

set movetothisfolder to this

end if

set these2 to every item of this

set biggestsize to 0

repeat with this2 in these2

if size of this2 > biggestsize then

set biggestsize to size of this2

set movethis2 to this2

end if

end repeat

move movethis2 to movetothisfolder

end if

end repeat

end tell

tell application “System Events”

set visible of every process to false

end tell

tell application “Finder”

activate

close every window

repeat with i from 1 to 1

set arrangement of icon view options of window of desktop to arranged by kind

delay 0.25

set arrangement of icon view options of window of desktop to arranged by name

delay 0.25

set arrangement of icon view options of window of desktop to arranged by size

delay 0.25

set arrangement of icon view options of window of desktop to arranged by creation date

delay 0.25

set arrangement of icon view options of window of desktop to arranged by modification date

delay 0.25

set arrangement of icon view options of window of desktop to arranged by kind

delay 0.25

end repeat

end tell

on open thefolder

if (count of thefolder) = 1 then

tell application “Finder”

set thefolder to (item 1 of thefolder) as alias

set thefolder_posix to POSIX path of (thefolder as alias)

set sort_destis to name of every folder of thefolder

set thepdfs to every file of thefolder

repeat with thepdf in thepdfs

if name of thepdf ends with “.pdf” or name of thepdf ends with “.png” or name of thepdf ends with “.jpg” or name of thepdf ends with “.gif” or name of thepdf ends with “.psd” then

set thepdf_posix to POSIX path of (thepdf as alias)

do shell script “open -a /Applications/Preview.app ” & quoted form of thepdf_posix

tell me to activate

tell me to set thedesti to choose from list {“••NEW Folder••”} & sort_destis with prompt “In welchen Ordner verschieben?”

if thedesti as text = “••NEW Folder••” then

set newfoldername to “”

repeat until newfoldername ≠ “”

tell me to set newfoldername to text returned of (display dialog “Name of new Folder” default answer “”)

try

do shell script “cd ” & quoted form of thefolder_posix & “;mkdir ” & quoted form of newfoldername

end try

set thedesti to newfoldername

end repeat

end if

tell application “Preview”

activate

–kleiner Pfusch, weil die Vorschau keine AppleScript-Befehle kennt…

tell application “System Events”

keystroke “w” using command down

end tell

end tell

do shell script “mv ” & quoted form of thepdf_posix & ” ‘” & thefolder_posix & thedesti & “/” & my checkname_with_pdf_suffix(name of thepdf, ((thefolder & thedesti) as text) as alias, false) & “‘”

end if

end repeat

end tell

tell me to activate

tell me to display dialog “bin am Ende”

end if

end open

on checkname_with_pdf_suffix(n, D, looped)

tell application “Finder”

set thefiles to name of every item of (D as alias)

end tell

if thefiles contains n then

if looped = false then

set n to ((characters 1 through -5 of n) & ” 1″ & (characters -4 through -1 of n)) as text

my checkname_with_pdf_suffix(n, D, true)

else

set tmp to (last word of ((characters 1 through -5 of n) as text) as integer)

set tmpcount to (count of characters of (tmp as text)) + 5

set tmp to tmp + 1

set n to ((characters 1 through (-1 * tmpcount) of n) & tmp & (characters -4 through -1 of n)) as text

my checkname_with_pdf_suffix(n, D, true)

end if

else

return n

end if

end checkname_with_pdf_suffix

on open these

set AppleScript‘s text item delimiters to “”

set numberlist to {}

repeat with this in these

tell application “Finder”

set numberlist to numberlist & (((characters 1 through 3 of (name of this as text)) as text) as integer)

end tell

end repeat

set new_list to simple_sort(numberlist)

set missing_ to “”

display dialog ((item 1 of new_list) as integer)

repeat with i from ((item 1 of new_list) as integer) to ((last item of new_list) as integer)

if numberlist does not contain i then

set missing_ to missing_ & i & return

end if

end repeat

if missing_ ≠ “” then

set the clipboard to missing_ as text

display dialog “Es fehlen welche”

else

display dialog “Alles da!”

end if

end open

on simple_sort(the_list)

set old_delims to AppleScript‘s text item delimiters

set AppleScript‘s text item delimiters to {ASCII character 10} – always a linefeed

set list_string to (the_list as string)

set new_string to do shell script “echo ” & quoted form of list_string & ” | sort -fn”

set new_list to (paragraphs of new_string)

set AppleScript‘s text item delimiters to old_delims

return new_list

return the the_list

end simple_sort