Copia un percorso dell'app in una nuova directory?

Mi chiedevo se qualcuno potesse aiutarmi a creare un AppleScript che copia l'app in un'altra posizione. Quindi, questo è quello che ho provato ... (Per favore non dire nulla da quando sono nuovo in Applescript)

set Folder to "~/Public/"
set FdrPosix to quoted form of POSIX path of Folder
set newFolderName to "Folder"
set destinationFdrPosix to quoted form of FdrPosix & POSIX file newFolderName
set sourceFilename to path to me
set sourceFnPosix to quoted form of FdrPosix & POSIX file sourceFilename
tell application "Finder"
  make new folder at alias FdrPosix with properties {name:newFolderName}
  copy file sourceFnPosix to folder destinationFdrPosix
end tell