Applescript to import images into IPhoto

Applescript for importing image directories into IPhoto:

set workingDir to POSIX path of "/Users/username/Pictures/400D_-_juni_2007"
tell application "iPhoto"
import from workingDir force copy 0
end tell