Script creates folders twice WHY

Question

I've hacked together this script so I dont have to create folders for shoots all the time. but for some reason it creates two folders with the same name. HELP PLEASE
set theResult to display dialog "Job Name" default answer "Example: JaneDoe_12_0307"
set theName to text returned of theResult
if (theName does not start with "Example:") then
end if
tell application "Finder"
make new folder at startup disk
{name:"untitled folder"}
set name of folder "untitled folder" of startup disk to theName
set target of Finder window 1 to folder theName of startup disk
-- change as necessary
set current_dir to front window
make new folder at current_dir
{name:"untitled folder"}
set name of folder "untitled folder" of current_dir to "shot_001"
make new folder at current_dir
{name:"untitled folder"}
set name of folder "untitled folder" of current_dir to "shot_002"
make new folder at current_dir
{name:"untitled folder"}
set name of folder "untitled folder" of current_dir to "shot_003"
make new folder at current_dir
{name:"untitled folder"}
set name of folder "untitled folder" of current_dir to "shot_005"
make new folder at current_dir
{name:"untitled folder"}
set name of folder "untitled folder" of current_dir to "shot_006"
make new folder at current_dir
{name:"untitled folder"}
set name of folder "untitled folder" of current_dir to "shot_007"
make new folder at current_dir
{name:"untitled folder"}
set name of folder "untitled folder" of current_dir to "shot_008"
make new folder at current_dir
{name:"untitled folder"}
set name of folder "untitled folder" of current_dir to "shot_009"
make new folder at current_dir
{name:"untitled folder"}
set name of folder "untitled folder" of current_dir to "shot_010"
end tell

Answer 1

Hi,
I don't know why it is working sometimes and not working at others, but your script should be erroring. For one thing, you can't use colon ":" in names. Another thing is, you don't need to get the window and in your script, you're not opening the current_dir folder, so there is no window to that folder. Anyway, instead of using the window, you can use a reference to the made folder. e.g.
set theName to "Example: JaneDoe_12_0307"
if theName starts with "Example: " then
set theName to text 10 thru -1 of theName
end if
tell application "Finder"
set current_dir to (make new folder at startup disk with properties {name:theName})
make new folder at current_dir with properties {name:"shot_001"}
make new folder at current_dir with properties {name:"shot_002"}
-- etc.
end tell
BTW, you might want to use unix to make folders.
Edited: I didn't see James script earlier, but anyway don't use the window. You can always open it later to see the results.
tell app "Finder"
open current_dir
end tell
end you don't have to think about if there is a window already opened.
gl,