copy folder structure without copying files

import sys
import os
import string

if (len(sys.argv)<3):
>print "usage: dircopy dir1 dir2"
>sys.exit()

fread = os.popen('find %s -type d -print' %sys.argv[1])
folders = fread.read()
fread.close()
fnames = string.split(folders,"\
")
for f in fnames:
>strip = len(sys.argv[1])
>f = '%s%s' %(sys.argv[2][:-1],f[strip:])
>os.popen('mkdir -p "%s"' %f)

-- Open this script in script editor and save with the options:
--   * File type: Application
--   * Uncheck the option "Startup screen"
-- Now you can either drag and drop a set of folders on the application or just 
-- run the application from the Finder and it will ask you to choose a folder.

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)
tell application "Finder" to set the target_folder to (parent of source_folder)

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)
my duplicate_folder_structure(source_folder & this_folder_name & ":", 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