tell application "Finder"
  set theList to the selection
  
  if the theList is {} then
    beep
    display dialog "No files or applications are selected."
    buttons("Cancel")
  end if
end tell

tell application "Finder"
  
  set thename to (text returned of (display dialog "New folder with name:" default answer ""))
  set theLocation to the target of Finder window 1
  repeat
    if thename is in (the name of every item of theLocation) then
      set thename to (text returned of (display dialog ("An item with the name "" & thename & "" already exists." & return & "Please enter a new name:") default answer thename))
    else
      exit repeat
    end if
  end repeat
  set newFolder to (make new folder with properties {name:thename} at theLocation)
  try
    move theList to newFolder
  end try
end tell

try
  tell application "Finder"
    set selectedItem to selection
    set currentPath to ((the first item of the selectedItem) as alias)
    set parentPath to ""
    
    if (currentPath as string) ends with ":" then
      -- it is a folder
      set the parentPath to currentPath
    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
    
    set newFolder to (my createFolder(parentPath))
    
  end tell
on error -- no folder or file is selected
  tell application "Finder"
    set the currentPath to (folder of the front window as alias)
    set parentFolder to currentPath
    
    set newFolder to (my createFolder(currentPath))
    
  end tell
end try


on createFolder(folderLocation)
  tell application "Finder"
    set thisFolder to make new folder at folderLocation
    
    set selection to thisFolder
    tell application "System Events"
      keystroke return
      quit -- if i don't do this system events seems to hang???
    end tell
    return thisFolder
  end tell
end createFolder

property extensionhidden : true

tell application "Finder"
    set theselection to selection
    repeat with i from 1 to (count theselection)
        set folderCheck to item i of theselection
        if folder (folderCheck as text) exists then
        else
            set extensionhidden to extension hidden of (item i of theselection)
            set extension hidden of (item i of theselection) to true
        end if
        set theItemName to displayed name of (item i of theselection)
        if folder (folderCheck as text) exists then
        else
            set theItemExtension to name extension of (item i of theselection)
        end if
        set upOneLevelFolder to folder of (item i of theselection) as alias
        
        set {year:y, month:m, day:d, time string:t} to (current date)
        set date_format to (y * 10000 + m * 100 + d) as string
        set time_format to (t) as string
        set t to (do shell script "echo " & "'" & t & "'" & " | sed  's/://g' ")
        set thedate to date_format & " " & t as text
        if folder (folderCheck as text) exists then
            set theNewName to theItemName & " " & thedate as text
        else
            set theNewName to theItemName & " " & thedate & "." & theItemExtension as text
        end if
        log theNewName
        set theDuplicate to duplicate (item i of theselection) to upOneLevelFolder replacing no
        set theDuplicateAlias to theDuplicate as alias
        set name of theDuplicateAlias to theNewName
        if folder (folderCheck as text) exists then
        else
            if extensionhidden then
                set extension hidden of theDuplicateAlias to true
                set extension hidden of (item i of theselection) to true
            else
                set extension hidden of theDuplicateAlias to false
                set extension hidden of (item i of theselection) to false
            end if
        end if
    end repeat
end tell