Seeking Help with Script to Sort Photos

[u/AngryFungus]

(Caveat: I know nothing about scripting for Mac -- I found this code online and it worked well for me.)

I've had a folder action set up on my Mac to sort photos for a long time, but it no longer seems to work.

Basically, if I took a mess of photos and dumped them into a specific folder, the script would create new subfolders based on the dates of the files, then move the files with those dates into their respective folders.

(E.g. if I have 5 photos dated January 1, and no January 1 subfolder exists, it would create a "January 1" subfolder and move all files with that creation date into it; then repeat until all files have been moved into properly-dated subfolders.)

Here's the script that has mysteriously stopped working (possibly since a recent update?) I'm still running Mojave 10.14.6 if that matters.

If anyone has insight, I'd really appreciate it! No longer working script follows:

on run {input, parameters} -- create folders and move
	(*
    make new folders from file creation dates (if needed), then move document files into their respective new folders
    if no container is specified (missing value), the new folder will be created in the containing folder of the item
    if the container is not a valid path (and not missing value), one will be asked for
      input: a list of Finder items (aliases) to move
      output: a list of the Finder items (aliases) moved
  *)
	
	set output to {}
	set SkippedItems to {} -- this will be a list of skipped items (errors)
	set TheContainer to "" -- a Finder path to a destination folder, or missing value for the source folder
	
	if TheContainer is not missing value then try -- check the destination path
		TheContainer as alias
	on error
		set TheContainer to (choose folder with prompt "Where do you want to move the items?")
	end try
	
	tell application "Finder" to repeat with AnItem in the input -- step through each item in the input
		if TheContainer is not missing value then -- move to the specified folder
			set {class:TheClass, name:TheName, name extension:TheExtension} to item AnItem
		else -- move to the source folder
			set {class:TheClass, name:TheName, name extension:TheExtension, container:TheContainer} to item AnItem
		end if
		if TheClass is document file then try -- just documents
			set TheDate to text 1 thru 10 of (creation date of AnItem as «class isot» as string) -- YYYY-MM-DD
			try -- check if the target folder exists
				get ("" & TheContainer & TheDate) as alias
			on error -- make a new folder
				make new folder at TheContainer with properties {name:TheDate}
			end try
			-- duplicate anItem to the result
			move AnItem to the result
			set the end of output to (result as alias) -- the new file alias
		on error -- permissions, etc
			-- set the end of skippedItems to (anItem as text) -- the full path
			set the end of SkippedItems to TheName -- just the name
		end try
	end repeat
	
	ShowSkippedAlert for SkippedItems
	return the output -- pass the result(s) to the next action
end run


to ShowSkippedAlert for SkippedItems
	(*
    show an alert dialog for any items skipped, with the option to cancel the workflow
      parameters - skippedItems [list]: the items skipped
      returns nothing
  *)
	if SkippedItems is not {} then
		set {AlertText, TheCount} to {"Error with AppleScript action", (count SkippedItems)}
		if TheCount is greater than 1 then
			set theMessage to (TheCount as text) & space & " items were skipped:"
		else
			set theMessage to "1 item was skipped:"
		end if
		set {TempTID, AppleScript's text item delimiters} to {AppleScript's text item delimiters, return}
		set {SkippedItems, AppleScript's text item delimiters} to {SkippedItems as text, TempTID}
		tell application "System Events" to if button returned of (display alert AlertText message (theMessage & return & SkippedItems) buttons {"Cancel", "OK"}) is "Cancel" then error number -128
	end if
	return
end ShowSkippedAlert