macOS AppleScript to search for folder name

global FolderName
global this_folder
global archive_item_info
-- This droplet processes folders dropped onto the applet 
on open these_items
	repeat with i from 1 to the count of these_items
		set this_item to item i of these_items
		set the item_info to info for this_item
		copy displayed name of item_info to FolderName
		--	set FolderName to text 1 thru 3 of FolderName
		if (alias of the item_info is false) and (folder of the item_info is true) then
			process_item(this_item)
		end if
	end repeat
end open

-- this sub-routine processes folders 
on process_item(this_item)
	-- NOTE that the variable this_item is a folder reference in alias format 
	-- FOLDER PROCESSING STATEMENTS GOES HERE
	--CHANGE THE LINE BELOW TO YOUR ARCHIVES FOLDER !
	set archivesFolder to (path to desktop as text) & "Archives" as alias
	--	set archivesFolderList to list folder archivesFolder
	tell application "Finder"
		set archivesFolderListAlias to (entire contents of (archivesFolder) as alias list)
	end tell
	repeat with aFolder from 1 to the count of archivesFolderListAlias
		set this_folder to item aFolder of archivesFolderListAlias
		set archive_item_info to info for this_folder
		copy displayed name of archive_item_info to archiveFolderName
		if archiveFolderName contains text 1 thru 3 of FolderName then
			tell application "Finder"
				move this_item to this_folder
			end tell
		end if
	end repeat
end process_item

on adding folder items to source_folder after receiving these_items
	-- insert actions here
	if folderReady(source_folder) then
		--CHANGE THE LINE BELOW TO YOUR ARCHIVES FOLDER !
		set archivesFolder to (path to desktop as text) & "Archives" as alias
		repeat with i from 1 to number of items in these_items
			set this_item to item i of these_items
			-- insert actions here
			set the item_info to info for this_item
			copy displayed name of item_info to FolderName
			set FolderNamePref to text 1 thru 3 of FolderName
			set archivesFolderCheck to (archivesFolder as text) & FolderNamePref & "000" --as alias
			if (alias of the item_info is false) and (folder of the item_info is true) then
				tell application "Finder"
					if exists archivesFolderCheck then
						set archivesFolderCheck to archivesFolderCheck as alias
						--					duplicate this_item to archivesFolderCheck
						move this_item to archivesFolderCheck
					else
						set new_folder to make new folder at archivesFolder with properties {name:FolderNamePref & "000"}
						--					duplicate this_item to new_folder
						move this_item to new_folder
					end if
				end tell
			else
				display dialog "I only process folders" buttons {"OK"} default button 1
			end if
		end repeat
	end if
end adding folder items to

on folderReady(tFolder)
	set myFolder to tFolder as alias -- use the path to the folder that's loading
	set firstSize to size of (info for myFolder) --get initial size
	delay 5 --wait 5 seconds
	set newSize to size of (info for myFolder) --get a newer size, bigger
	repeat while newSize ≠ firstSize --if they don't equal, loop until they do
		set firstSize to newSize --new base size
		delay 3 --wait three seconds
		set newSize to size of (info for myFolder) --get a newer size
	end repeat --once the sizes match, the transfer is complete
	return true
end folderReady