set _2007 to 0
set _2008 to 0
set _2009 to 0
set _other to 0
tell application "Finder"
  set theFolder to choose folder
  set allFolders to folders of theFolder
  set theCount to count folders of allFolders
  repeat with aFolder in allFolders
    set theDate to (creation date of aFolder)
    set y to (theDate's year) as string
    if y is "2007" then
      set _2007 to _2007 + 1
    else if y is "2008" then
      set _2008 to _2008 + 1
    else if y is "2009" then
      set _2009 to _2009 + 1
    else
      set _other to _other + 1
    end if
  end repeat
  display dialog " Jahr   Kunden" & return & return ¬
    & "2007  " & _2007 & return ¬
    & "2008  " & _2008 & return ¬
    & "2009  " & _2009 & return ¬
    & "other  " & _other
end tell