Using Automator to create sequential folders

Question

I'm trying to make an Automator workflow that will grab a file, create a folder with today's date, create a new sequentially numbered subfolder, and copy that file into it.  Essentially "To Post/2013_06_11/1", then on the next run it will make "To Post/2013_06_11/2", etc.  I can get this to work once, but after the initial "1" folder is created I can't get it to make 2, 3, etc when I run it later. I can get this to work if I make all folders at once, but that doesn't fit our pipeline as we drop files throughout the day. Is there a way to do this in Automator, or does it require an Applescript to recognize the existing numbered folders? Thanks!

Answer 1

So after a lot of tweaking, I think I have it working. Two problems I encountered with Camelot's script were getting errors while creating the very first folder, and when the folder numbers get into the double digits it was only looking at the last digit (11 would be followed by 2, for example). This is what it looks like now- it's probably pretty inelegant, but it works:
New Folder: Today's date
Set Variable: Today's date folder
New Folder: named 0 in Today's date folder
Set Variable: Folder 0
Get variable: Today's date folder
Get folder contents
Sort Finder items by name, ascending
Run Camelot's Applescript, modified
on run {input, parameters}
          tell application "Finder"
                    set n to name of last item of input
                    return n + 1
          end tell
end run
Set variable: New sequential number
New folder: named new sequential number, today's date folder
Set variable: New sequential number folder
Get selected Finder items
Copy Finder items to New sequential number folder
Get Variable: New Sequential Number
Run Applescript:
on run {input, parameters}
          display dialog "Posted to #" & {input}
          return input
end run
(this shows a window showing what number it's been posted to)
Get Variable: Folder 0
Run Applescript:
on run {input, parameters}
          tell application "Finder"
                    delete {input}
          end tell
          return input
end run
(I had to do a script to delete the folder from a network)