1. on find by stringForName
  2. set savedDelimiters to AppleScript's text item delimiters
  3. set AppleScript's text item delimiters to return
  4. set theResult to text items of (do shell script "fname=\"$(basename " & quoted form of stringForName & ")\";mdfind 'kMDItemDisplayName == \"'\"$fname\"'\"' | sort")
  5. set AppleScript's text item delimiters to savedDelimiters
  6. return theResult
  7. end find
  9. on optimize for paths
  10. set destinationPaths to {}
  11. set holdDestinationPaths to {}
  12. set newestFile to missing value
  13. repeat with thePath in paths
  14. try
  15. tell application "Finder" to set modificationDate to modification date of file (me's POSIX file thePath)
  16. if newestFile is not missing value and modificationDate < date of newestFile then
  17. set holdDestinationPaths to holdDestinationPaths & {thePath}
  18. else
  19. if newestFile is not missing value then
  20. set destinationPaths to destinationPaths & {filePath of newestFile} & holdDestinationPaths
  21. set holdDestinationPaths to {}
  22. end if
  23. set newestFile to {filePath:thePath, date:modificationDate}
  24. end if
  25. end try
  26. end repeat
  27. return {source:filePath of newestFile, destinations:(destinationPaths & holdDestinationPaths)}
  28. end optimize
  30. on synchronize by keyFilePath
  31. set copyPath to optimize for (find by keyFilePath)
  32. if (count of destinations of copyPath) is 0 then return
  34. set destinations of copyPath to choose from list destinations of copyPath OK button name "Copy" with title "Update the same files" with prompt "Copy “" & source of copyPath & "” to:" with multiple selections allowed
  35. if (count of destinations of copyPath) is 0 then return
  37. tell application "Finder"
  38. set sourceObject to file (me's POSIX file (source of copyPath))
  39. set destinaationObjects to {}
  40. set destinationContainers to {}
  41. repeat with thePath in destinations of copyPath
  42. set destinaationObject to file (me's POSIX file thePath)
  43. set destinaationObjects to destinaationObjects & {destinaationObject}
  44. set destinationContainers to destinationContainers & {container of destinaationObject}
  45. end repeat
  46. try
  47. delete destinaationObjects
  48. on error message
  49. display dialog message
  50. end try
  51. repeat with theContainer in destinationContainers
  52. try
  53. duplicate sourceObject to theContainer
  54. on error message
  55. display dialog message
  56. end try
  57. end repeat
  58. end tell
  59. end synchronize
  61. on open droppedItems
  62. if (count of droppedItems) is 0 then return
  63. synchronize by POSIX path of item 1 of droppedItems
  64. end open
  66. -- for example
  67. synchronize by "hoge.txt"
  68. synchronize by "../../Hoge/Desktop/hoge.txt"
  69. synchronize by "/Users/Hoge/Desktop/hoge.txt"

Sample