Apple

I'd very much like to attach files and folders to an rtfd via TextEdit. My attempts so far have been futile.

tell application "TextEdit"

activate

open (ptd & newFolderName & ".rtfd") as text as alias

end tell

tell application "Finder"

set theContents to (contents of folder newFolderPath) --< Files and folders

end tell

tell application "TextEdit"

activate

tell document frontmost

repeat with eachItem in theContents

try

set end of paragraphs to eachItem

on error errmsg

display dialog errmsg

end try

end repeat

end tell