Folder Structure Script Only Works Locally? Any thoughts?

Question

Hello,
I am using this script to copy the folder structure so I don't have to manually create new folders and copy/paste the names. This script works great locally. But when I need to use it on our servers. It does not work. Any thoughts?
on run
          set source_folder to choose folder with prompt "Select folder to be duplicated:" as string
          my do_main_script(source_folder)
end run
on open of source_folder_list
          repeat with i from 1 to number of items in the source_folder_list
                    set this_folder_path to item i of the source_folder_list as string
                    if last character of this_folder_path is ":" then
                              my do_main_script(this_folder_path)
                    end if
          end repeat
end open
on do_main_script(source_folder)
          tell application "Finder" to set source_folder to folder (source_folder)
          set the target_folder to (choose folder with prompt "Where would you like the duplicated folders to be moved to?")
          if source_folder is not "" and target_folder is not "" then
                    set new_folder_name to (name of source_folder as string) & " duplicate"
                    set source_folder to source_folder as string
                    set target_folder to target_folder as string
                    my create_new_folder(target_folder, new_folder_name)
                    my duplicate_folder_structure(source_folder, target_folder & new_folder_name & ":")
          end if
end do_main_script
on duplicate_folder_structure(source_folder, target_folder)
          tell application "Finder"
                    try
                              get name of folders of folder (source_folder)
                              set folder_list to result
                              repeat with i from 1 to number of items in the folder_list
                                        set this_folder_name to item i of the folder_list as string
                                        my create_new_folder(target_folder, this_folder_name)
                              end repeat
                    end try
          end tell
end duplicate_folder_structure
on create_new_folder(target_folder, new_folder_name)
          tell application "Finder"
                    try
                              if not (exists item (target_folder & new_folder_name)) then
  make new folder at folder target_folder with properties {name:new_folder_name}
                              end if
                    end try
          end tell
end create_new_folder
Best,
Anthony

Answer 1

Hi Frank,
It copies the root folder but it stops there. The folder structure is very very deep and these jobs are very large. I'm thinking there too large for this script to handle. If I work off an external hard drive or locally it works without a hitch.