tell application "Finder"
  activate
  set theTopFolder to (selection as alias)
  --display dialog (theTopFolder as text)
  repeat with EachSubDir in (get every folder of folder theTopFolder)
    try
      --display dialog (EachSubDir as text)
      repeat with Eachfile in (get every file of folder (EachSubDir as alias))
        try
          move Eachfile to theTopFolder
        end try
      end repeat
      delete folder (EachSubDir as alias)
    end try
  end repeat
end tell

set buttonList to {"Neutral", "Creative", "Detail"}
set colorList to {"Solid Gray Very Dark", "Solid Blue Very Dark", "Solid Red Very Dark"}
display dialog "Which environment?" buttons buttonList default button 1
set selectedButton to the button returned of the result

repeat with index from 1 to 3
  if item index of buttonList = selectedButton then exit repeat
end repeat

set selectedColor to item index of colorList

tell application "Finder"
  set desktop picture to {"Macintosh HD:Library:Desktop Pictures:Solid Colors:" & selectedColor & ".png"} as alias
end tell

tell application "Finder"
    set mifold to choose folder
    set filelist to every file of mifold as list
    set foldlist to every folder of mifold as list
    repeat with i from 1 to number of items in filelist
        set subj to item i of filelist as alias
        set epoch to (do shell script "stat -f \"%B\" " & (quoted form of (POSIX path of subj)))
        set caldate to do shell script ("date -r " & epoch & " \"+%Y-%m-%d\"")
        
        if not (exists folder caldate of mifold) then
            make new folder at mifold with properties {name:caldate}
        end if
        try
            (* try ignores errors from locked files *)
            move file subj to folder caldate of mifold
        end try
    end repeat
    repeat with j from 1 to number of items in foldlist
        set subj to item j of foldlist as alias
        if name of subj does not start with "200" then
            set epoch to (do shell script "stat -f \"%B\" " & (quoted form of (POSIX path of subj)))
            set caldate to do shell script ("date -r " & epoch & " \"+%Y-%m-%d\"")
            if not (exists folder caldate of mifold) then
                make new folder at mifold with properties {name:caldate}
            end if
            try
                (* try ignores errors from locked items *)
                move folder subj to folder caldate of mifold
            end try
            
        end if
    end repeat
end tell

(*
Move items into new folder
Author: Barry Els
Version: 1.1
*)

tell application "Finder"
  try
    
    set theSelection to selection
    
    set currentPath to ((the first item of the theSelection) as alias)
    set parentPath to currentPath
    
    if (currentPath as string) ends with ":" then -- it is a folder
      set {od, AppleScript's text item delimiters} to {AppleScript's text item delimiters, ":"}
      set the parentPath to (text items 1 thru -3 of (currentPath as string)) as string
      set AppleScript's text item delimiters to od
    else -- it is a file
      set {od, AppleScript's text item delimiters} to {AppleScript's text item delimiters, ":"}
      set the parentPath to (text items 1 thru -2 of (currentPath as string)) as string
      set AppleScript's text item delimiters to od
    end if
    
    try
      
      set newFolder to (my createFolder(parentPath))
      move theSelection to newFolder
      
      delay 0.1
      set selection to newFolder
      tell application "System Events"
        keystroke return
        quit
      end tell
      
    end try
    
  on error
    (*
    no folder or file is selected, warn the user
    *)
    
    display dialog ("Please select one or several items to group" & (theSelection as string))
    
  end try
  
end tell

on createFolder(selectedPath)
  tell application "Finder"
    set createdFolder to make new folder at selectedPath
  end tell
  
  return createdFolder
end createFolder