Automator action with dropdown to make folders with predetermined names

Question

Is there an action/workflow that will allow me to create Folders using a dropdown menu of predetermined names for those folders?

Answer 1

I haven't seen one, and since no one has posted about one yet, I'll throw this out.
I modified a couple of handlers I have laying around into a Run AppleScript action that will make folders from a list of names. The list can be set in a Get Specified Text action, with the "menu" being a Choose from List action:
Tested workflow:
1) Get Specified Text (your folder names, separated by returns) for example:
Testing
Another test
My Spiffy New Folder
2) Filter Paragraphs (Return paragraphs that are not empty)
3) Choose from List (Prompt: Please choose folder names:)
4) Run AppleScript:
<pre style="
font-family: Monaco, 'Courier New', Courier, monospace;
font-size: 10px;
margin: 0px;
padding: 5px;
border: 1px solid #000000;
width: 720px; height: 340px;
color: #000000;
background-color: #FFDDFF;
overflow: auto;"
title="this text can be pasted into an Automator 'Run AppleScript' action">
on run {input, parameters}
make folders with names from a list
input: a list of names (text items)
output: a list of Finder items (aliases) created
set output to {}
set DestinationFolder to missing value -- set the destination path here if desired
try -- verify that the path is valid
set DestinationFolder to DestinationFolder as alias
on error
set DestinationFolder to (choose folder with prompt "Choose the location to make the selected folders:")
end try
repeat with AnItem in the input
GetUniqueName for AnItem from DestinationFolder -- avoid duplicates
try
tell application "Finder" to make new folder at DestinationFolder with properties {name:the result}
set the end of the output to the result as alias
end try
end repeat
return output
end run
to GetUniqueName for SomeName from SomeFolder
check if SomeName exists in SomeFolder, creating a new unique name if needed
parameters - SomeName [text]: a name.extension to check for
SomeFolder [mixed]: a folder to check
returns [text]: a unique name
set {Counter, Divider} to {"00", "_"}
set Here to -(offset of "." in ((reverse of text items of SomeName) as text)) - 1
set TheName to text 1 thru Here of SomeName
if Here is -1 then -- no extension
set TheExtension to ""
else
set TheExtension to text (Here + 1) thru -1 of SomeName
end if
set NewName to TheName & TheExtension
tell application "System Events" to tell (get name of items of folder (SomeFolder as text))
repeat while it contains NewName
set Counter to text 2 thru -1 of ((100 + Counter + 1) as text) -- leading zero
set NewName to TheName & Divider & Counter & TheExtension
end repeat
end tell
return NewName
end GetUniqueName</pre>
- the output from the Run AppleScript action is a list of aliases to the folders created, if you want that information to do something with.