tell application "Finder"
set thedata to entire contents of folder source_folder
repeat with aItem in thedata
if class of aItem is not folder then
duplicate (aItem as alias) to folder target_folder
end if
end repeat
end tell