Applescript to copy folder (and contents) to current location?
The following script should work:

property y : POSIX file "/Users/James/doc" as alias

tell application "Finder"
    set x to target of window 1 as alias
    duplicate y to x
end tell


By setting y as a property (and as an alias), the script should not break by simply renaming or moving the the folder to be copied.