For some reason I can dupe a file to the desktop but not a folder created with in the script
set Alias1 to choose folder
set theMonth to ((the month of (current date)) as integer)
set theDate to ((the year of (current date) & "_" & "0" & theMonth & "_" & the day of (current date)) as string)
set theName to theDate & "_" & text returned of (display dialog "Job Name__todays date will be added" default answer "JobID")
set theNumber to text returned of (display dialog "number of shot folders" default answer "Example: 10")
tell application "Finder"
set dir_1 to make new folder at Alias1 with properties {name:theName}
set dir_2 to make new folder at dir_1 with properties {name:"Processed"}
set dir_3 to make new folder at dir_1 with properties {name:"Trash"}
set dir_4 to make new folder at dir_1 with properties {name:"Captures"}
repeat with i from 1 to theNumber
make new folder at dir_4 with properties {name:(theName & "_shot_" & (text -3 through -1 of ("00" & i)))}
end repeat
set the clipboard to the theName
set theFolder to make new Finder window
set target of theFolder to folder Alias1
set basePath to path to me as text
set theDest to folder theName
set theSession to (basePath & "Contents:Resources:Scripts")
duplicate file "job.session" of theSession to theDest with replacing
end tell