Can't Get Folder Action To Work...

Question

Hi guys.  I'm working on an Applescript -- a Folder Action, to be precise -- which will, when files are dropped onto or added to my Downloads folder, automagically sort them into pre-existing folders, depending upon what kind of file they are.  But for the LIFE of me, I simply cannot get it to work.  I attach the script to the Folder using Configure Folder Actions (or as it appears in the context menu, "Folder Actions Setup"), and then drop files onto the folder and . . . nothing.  But I know that Folder Actions themselves are working, because I have a few others that I wrote myself that are working just fine.  I tried repairing permissions, but that didn't do any good.  Any ideas?  Here's the code below.   You'll notice that there is a section that's been commented out; mainly because I couldn't figure out how to do it without using recursion, and thus breaking up the script into subroutines, which I've heard you're not supposed to do with Folder Actions.  If someone could please explain what the heck I'm doing wrong and possibly provide a solution, I'd be really, really appreciative.  Anyway, the code:
on adding folder items to this_folder after receiving these_items
set imageTypesList to {"JPEG image", "Portable Network Graphics image", "Windows bitmap image", "Graphics Interchange           Format image", "Adobe Photoshop File", "TIFF Image"}
set audioTypesList to {"MP3 audio", "AIFF-C audio", "Waveform audio"}
set videoTypesList to {"Video-MPEG4", "MPEG-4 File", "Video-MPEG2", "Video-MPEG", "AVI", "Matroska Video File"}
set fontTypesList to {"TrueType font", "PostScript® Type 1 outline font", "Font Suitcase"}
set docsTypesList to {"Portable Document Format (PDF)", "Scrivener Project", "Microsoft Word 97 - 2004 document", "Rich Text           Document", "Plain Text Document", "CSV Document", "Pages Publication"}
set epubTypesList to {"epub", "Kindle Document", "iBooks Author Template", "iBooks Author Book"}
set archTypesList to {"ZIP archive", "tar archive", "rar archive", "Tar Gzip Archive"}
set diskTypesList to {"Installer package", "Disk Image"}
set execTypesList to {"Application (32-bit)", "Application", "Unix Executable File"}
set webTypesList to {"HTML document", "XML document", "XHTML document", "Cascading Style Sheet"}
set iconTypesList to {"Apple Icon Image", "Icon Container", "Windows Icon Image"}
set otherTypesList to {"XTorrent File"}
set uberList to imageTypesList & audioTypesList & videoTypesList & fontTypesList ¬                      & docsTypesList & epubTypesList & archTypesList & diskTypesList & execTypesList ¬
           & webTypesList & iconTypesList & otherTypesList\
set imagesFolder to "Technomage:Users:andyhainline:Downloads:Images" as alias
set appsFolder to "Technomage:Users:andyhainline:Downloads:Apps" as alias
set archivesFolder to "Technomage:Users:andyhainline:Downloads:Archives" as alias
set epubFolder to "Technomage:Users:andyhainline:Downloads:eBooks" as alias
set fontsFolder to "Technomage:Users:andyhainline:Downloads:Fonts" as alias
set docsFolder to "Technomage:Users:andyhainline:Downloads:PDFs and Docs" as alias
set diskFolder to "Technomage:Users:andyhainline:Downloads:Installers and Disk Images" as alias
set iconFolder to "Technomage:Users:andyhainline:Downloads:Icons" as alias
set audioFolder to "Technomage:Users:andyhainline:Downloads:Audio" as alias
set videoFolder to "Technomage:Users:andyhainline:Downloads:Video" as alias
set otherFolder to "Technomage:Users:andyhainline:Downloads:Torrent Files" as alias
set miscFolder to "Technomage:Users:andyhainline:Downloads:Miscellanious" as alias
repeat with anItem in these_items
  set itemInfo to info of anItem
  if (kind of itemInfo) is in imageTypesList then
  move file itemInfo to imagesFolder
  else if (kind of itemInfo as text) is in audioTypesList then
  move file anItem to audioFolder with replacing
  else if (kind of itemInfo as text) is in videoTypesList then
  move file anItem to videoFolder with replacing
  else if (kind of itemInfo as text) is in fontTypesList then
  move file anItem to fontsFolder with replacing
  else if (kind of itemInfo as text) is in docsTypesList then
  move file anItem to docsFolder with replacing
  else if (kind of itemInfo as text) is in epubTypesList then
  move file anItem to epubFolder with replacing
  else if (kind of itemInfo as text) is in archTypesList then
  move file anItem to archivesFolder with replacing
  else if (kind of itemInfo as text) is in diskTypesList then
  move file anItem to diskFolder with replacing
  else if (kind of itemInfo as text) is in execTypesList then
  move file anItem to appsFolder with replacing
  else if (kind of itemInfo as text) is in webTypesList the
          move file anItem to docsFolder with replacing
  else if (kind of itemInfo as text) is in iconTypesList then
           move file anItem to iconFolder with replacing
  else if (kind of itemInfo as text) is in otherTypesList then
           move file anItem to otherFolder with replacing
  else if (kind of itemInfo as text) is not in uberList then
           move file anItem to msicFolder with replacing
  (*                              else if (kind of anItem as text) is "Folder" then
                                        set folderFiles to get every file of anItem
                                        processItems(folderFiles)
  end if
     end repeat
end adding folder items to

Answer 1

Well, I followed your instructions to letter, but the folder action still isn't triggering, or if it is, it isn't executing properly.  I can't figure out what's going on.  I tried executing the script directly from Script Debugger, but it just sits there, doing nothing (since it has no input, I would guess).  Any ideas on what's wrong?
on adding folder items to this_folder after receiving these_items
     set imageTypesList to {"JPEG image", "Portable Network Graphics image", "Windows bitmap           image", "Graphics Interchange Format image", "Adobe Photoshop File", "TIFF Image"}
     set audioTypesList to {"MP3 audio", "AIFF-C audio", "Waveform audio"}
     set videoTypesList to {"Video-MPEG4", "MPEG-4 File", "Video-MPEG2", "Video-MPEG", "AVI", "Matroska           Video File"}
     set fontTypesList to {"TrueType font", "PostScript® Type 1 outline font", "Font Suitcase"}
     set docsTypesList to {"Portable Document Format (PDF)", "Scrivener Project", "Microsoft Word 97 - 2004           document", "Rich Text Document", "Plain Text Document", "CSV Document", "Pages Publication"}
     set epubTypesList to {"epub", "Kindle Document", "iBooks Author Template", "iBooks Author Book"}
     set archTypesList to {"ZIP archive", "tar archive", "rar archive", "Tar Gzip Archive"}
     set diskTypesList to {"Installer package", "Disk Image"}
     set execTypesList to {"Application (32-bit)", "Application", "Unix Executable File"}
     set webTypesList to {"HTML document", "XML document"}
     set iconTypesList to {"Apple Icon Image", "Icon Container", "Windows Icon Image"}
     set otherTypesList to {"XTorrent File"}
     set uberList to imageTypesList & audioTypesList & videoTypesList & fontTypesList ¬
                              & docsTypesList & epubTypesList & archTypesList & diskTypesList & execTypesList ¬
            & webTypesList & iconTypesList & otherTypesList
set imagesFolder to "Technomage:Users:andyhainline:Downloads:Images" as alias
set appsFolder to "Technomage:Users:andyhainline:Downloads:Apps" as alias
set archivesFolder to "Technomage:Users:andyhainline:Downloads:Archives" as alias
set epubFolder to "Technomage:Users:andyhainline:Downloads:eBooks" as alias
set fontsFolder to "Technomage:Users:andyhainline:Downloads:Fonts" as alias
set docsFolder to "Technomage:Users:andyhainline:Downloads:PDFs and Docs" as alias
set diskFolder to "Technomage:Users:andyhainline:Downloads:Installers and Disk Images" as alias
set iconFolder to "Technomage:Users:andyhainline:Downloads:Icons" as alias
set audioFolder to "Technomage:Users:andyhainline:Downloads:Audio" as alias
set videoFolder to "Technomage:Users:andyhainline:Downloads:Video" as alias
set otherFolder to "Technomage:Users:andyhainline:Downloads:Torrent Files" as alias
set miscFolder to "Technomage:Users:andyhainline:Downloads:Miscellanious" as alias
processItems(these_items)
end adding folder items to
on processItems(these_items)
     tell application "System Events"
          repeat with anItem in these_items
               if (kind of anItem) is in imageTypesList then
                   move file anItem to imagesFolder
              else if (kind of anItem) is in audioTypesList then
                   move file anItem to audioFolder with replacing
             else if (kind of anItem) is in videoTypesList then
                   move file anItem to videoFolder with replacing
             else if (kind of anItem) is in fontTypesList then
                  move file anItem to fontsFolder with replacing
             else if (kind of anItem) is in docsTypesList then
                  move file anItem to docsFolder with replacing
            else if (kind of anItem) is in epubTypesList then
                  move file anItem to epubFolder with replacing
            else if (kind of anItem) is in archTypesList then
                  move file anItem to archivesFolder with replacing
            else if (kind of anItem) is in diskTypesList then
                 move file anItem to diskFolder with replacing
            else if (kind of anItem) is in execTypesList then
                 move file anItem to appsFolder with replacing
           else if (kind of anItem) is in webTypesList then
                move file anItem to docsFolder with replacing
           else if (kind of anItem) is in iconTypesList then
               move file anItem to iconFolder with replacing
           else if (kind of anItem) is in otherTypesList then
               move file anItem to otherFolder with replacing
           else if (kind of anItem) is not in uberList then
               move file anItem to msicFolder with replacing
           else if (kind of anItem as text) is "Folder" then
       set folderFiles to get every file of anItem
       processItems(folderFiles)
  end if
  end repeat
end tell
end processItems