¿Copiando una ruta de la aplicación a un nuevo directorio?

Me preguntaba si alguien podría ayudarme a crear un AppleScript que copie la aplicación que el script está en otra ubicación. Entonces, esto es lo que intenté ... (Por favor, no digas nada ya que soy nuevo en 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