gitとかやるまでもないんだよねー、という場合ありますよね、ないですか。
単に待避フォルダに移動・コピーはAppleScriptでずっとしていたんですが、ちょっとだけ豪華にしました。

適当に待避用フォルダを作成して、ファイルを入れる毎に日時フォルダに分別してコピーまたは移動し、移動の理由も付けておきたいな、という時にもテキストファイルで理由を保存しておけます。
また、複数の待避フォルダがあっても別々に使用したり、一つにマージしたりできます。

これで動作を想像してください。

こう聞いてきて

こんな感じになります。

そのままでもスクリプトエディタやスクリプトメニューから実行できますが、気軽に使うためにはKeyboard Maestroのexecute AppleScriptで実行させましょう。

に待避フォルダ用のiconファイルとscript本体があります。
・icnsファイルは、ホームフォルダのPictures（写真？画像？元からあるものです）に入れてください
・scptは↑のようにスクリプトメニューからでもいいですが、Keyboard Maestroでマクロ作った方が楽しいです

※ほぼChatGPT4oですが、結構な時間かかりました。

use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property targetBaseFolderName : "■待避："
property searchDepthLimit : 4
property dateTimeFormat : "%y%m%d-%H%M%S"
property reasonFileName : "★待避理由.txt"
property newFolderTagName : "重要"

tell application "Finder"
	try
		set selectedItems to my getSelectedItems()
		set sourceParentFolder to container of item 1 of selectedItems as alias
		set sourceParentName to name of sourceParentFolder
		
		if my isInsideTargetFolder(selectedItems, targetBaseFolderName) then
			display alert "処理中止" message "選択された項目が「" & targetBaseFolderName & "」フォルダ自体、またはその中にあるようです。" as warning
			return
		end if
		
		set targetBaseFolder to my findTargetBaseFolder(sourceParentFolder)
		if targetBaseFolder is not missing value then
			set targetBaseFolderName to name of targetBaseFolder
		end if
		
		if targetBaseFolder is missing value then
			set userSuffix to my promptForFolderSuffix()
			set targetBaseFolderName to targetBaseFolderName & userSuffix
			set targetBaseFolder to my findTargetBaseFolder(sourceParentFolder)
			if targetBaseFolder is missing value then
				set targetBaseFolder to my createTargetBaseFolder(sourceParentFolder)
			end if
		end if
		
		set {chosenAction, reasonText} to my promptForAction(sourceParentName, targetBaseFolder)
		
		if targetBaseFolder is missing value then
			display alert "エラー" message "ターゲットフォルダが見つからず、処理を続行できません。" as critical
			return
		end if
		my ensureFolderTagOverwrite(targetBaseFolder, newFolderTagName)
		
		set subFolder1 to my getOrCreateFolder(targetBaseFolder, sourceParentName)
		set dateTimeFolderName to do shell script "date +" & quoted form of dateTimeFormat
		set destinationFolder to my createFolder(subFolder1, dateTimeFolderName)
		
		try
			if chosenAction is "移動" then
				move selectedItems to destinationFolder
			else if chosenAction is "コピー" then
				duplicate selectedItems to destinationFolder
			end if
			if reasonText is not "" then my writeReasonFile(destinationFolder, reasonText)
		on error errMsg
			try
				delete destinationFolder
			end try
			display alert "エラー" message chosenAction & "処理中にエラーが発生しました。" & return & errMsg as critical
		end try
	end try
end tell

on getSelectedItems()
	tell application "Finder"
		set selectedList to selection
		if selectedList is {} then
			display alert "エラー" message "項目が選択されていません。" as critical
			error number -128
		end if
		return selectedList
	end tell
end getSelectedItems

on isInsideTargetFolder(targetItems, baseName)
	if targetItems is {} then error number -128
	tell application "Finder"
		set firstSelectedItem to item 1 of targetItems
		if name of firstSelectedItem starts with baseName then return true
		set checkFolderRef to container of firstSelectedItem
		repeat until false
			try
				if name of checkFolderRef starts with baseName then return true
				set checkFolderRef to container of checkFolderRef
			on error
				exit repeat
			end try
		end repeat
	end tell
	return false
end isInsideTargetFolder

on promptForAction(parentFolderName, targetFolder)
	set targetFolderName to name of targetFolder
	set initialAnswer to (linefeed & linefeed & linefeed & linefeed)
	set dialogResult to display dialog "操作を選び、必要なら理由を入力してください：" & return & return & "移動/コピー先：" & return & "「" & targetFolderName & "」>「" & parentFolderName & "」>（日時フォルダ）" default answer initialAnswer buttons {"キャンセル", "コピー", "移動"} default button "移動"
	if button returned of dialogResult is "キャンセル" then error number -128
	set actionResult to button returned of dialogResult
	set reasonResult to text returned of dialogResult
	return {actionResult, reasonResult}
end promptForAction

on promptForFolderSuffix()
	set suffixDialog to display dialog "待避フォルダがありません。作成しますか？" & return & "これから作成する待避フォルダ名に、テキストを追加できます。" default answer "" buttons {"キャンセル", "作成"} default button "作成"
	
	if button returned of suffixDialog is "キャンセル" then
		error number -128
	else
		return text returned of suffixDialog
	end if
end promptForFolderSuffix

on findTargetBaseFolder(startingFolder)
	tell application "Finder"
		set currentFolderRef to startingFolder
		repeat searchDepthLimit times
			try
				set folderList to folders of currentFolderRef
				set foundFolders to {}
				repeat with subFolderRef in folderList
					if name of subFolderRef starts with targetBaseFolderName then set end of foundFolders to subFolderRef
				end repeat
				if (count of foundFolders) = 1 then
					return item 1 of foundFolders
				else if (count of foundFolders) > 1 then
					set folderNames to {}
					repeat with f in foundFolders
						set end of folderNames to name of f
					end repeat
					
					set chosenName to my promptFolderSelection(folderNames)
					
					if chosenName is false then return missing value
					if class of chosenName is text then
						repeat with f in foundFolders
							if name of f is chosenName then return f
						end repeat
					else if class of chosenName is list then
						set primaryFolderName to item 1 of chosenName
						set primaryFolder to missing value
						repeat with f in foundFolders
							if name of f is primaryFolderName then
								set primaryFolder to f
								exit repeat
							end if
						end repeat
						if primaryFolder is missing value then return missing value
						repeat with f in foundFolders
							set srcPath to POSIX path of (f as alias)
							set dstPath to POSIX path of (primaryFolder as alias)
							if srcPath is not equal to dstPath then
								do shell script "/usr/bin/ditto " & quoted form of srcPath & " " & quoted form of dstPath
								delete f
							end if
						end repeat
						return primaryFolder
					end if
				end if
				if class of container of currentFolderRef is desktop folder then exit repeat
				set currentFolderRef to container of currentFolderRef
			on error errMsg number errNum
				if errNum is -128 then
					error number -128
				else
					exit repeat
				end if
			end try
		end repeat
	end tell
	return missing value
end findTargetBaseFolder

on promptFolderSelection(folderNames)
	set chosenFolder to choose from list folderNames with prompt "同一階層に複数の待避フォルダが見つかりました" & return & "使用する待避フォルダを選んでください：" without multiple selections allowed
	if chosenFolder is false then error number -128
	set selectedName to item 1 of chosenFolder
	set confirmDialog to display dialog "選択した待避フォルダ: " & selectedName & return & return & "このフォルダを使用しますか？それとも全ての待避フォルダをこのフォルダにマージしますか？" & return & "※ 同一の時刻のフォルダがある場合は上書きされます" buttons {"キャンセル", "全てマージ", "このフォルダを使用"} default button "このフォルダを使用"
	set clickedButton to button returned of confirmDialog
	
	if clickedButton is "キャンセル" then error number -128
	if clickedButton is "このフォルダを使用" then return selectedName
	if clickedButton is "全てマージ" then return chosenFolder
	error number -128
end promptFolderSelection

on createTargetBaseFolder(referenceFolder)
	try
		set parentFolderRef to container of referenceFolder
	on error
		set parentFolderRef to referenceFolder
	end try
	set parentFolderAlias to parentFolderRef as alias
	set creationLocationRef to choose folder with prompt "「" & targetBaseFolderName & "」フォルダを作成する場所を選択してください:" default location parentFolderAlias
	if creationLocationRef is false then error number -128
	tell application "Finder"
		set newBaseFolderRef to make new folder at creationLocationRef with properties {name:targetBaseFolderName}
	end tell
	try
		set iconPath to POSIX path of (path to pictures folder) & "hfi.icns"
		set imageData to (current application's NSImage's alloc()'s initWithContentsOfFile:iconPath)
		(current application's NSWorkspace's sharedWorkspace()'s setIcon:imageData forFile:(POSIX path of (newBaseFolderRef as alias)) options:2)
	on error
		-- skip icon error
	end try
	return newBaseFolderRef
end createTargetBaseFolder

on createFolder(parentRef, folderLabel)
	if parentRef is missing value or folderLabel is "" then
		error number -128
	end if
	tell application "Finder"
		return make new folder at parentRef with properties {name:folderLabel}
	end tell
end createFolder

on writeReasonFile(destinationRef, userReasonText)
	if destinationRef is missing value then error number -128
	try
		set trimmedReasonText to do shell script "echo " & quoted form of userReasonText & " | tr -d '[:space:]'"
		if trimmedReasonText is "" then return
		set reasonFileFullPath to POSIX path of (destinationRef as alias) & reasonFileName
		do shell script "echo " & quoted form of userReasonText & " > " & quoted form of reasonFileFullPath
		set urlClass to current application's NSURL
		set tagKey to current application's NSURLTagNamesKey
		set fileURL to urlClass's fileURLWithPath:reasonFileFullPath
		fileURL's setResourceValue:{newFolderTagName} forKey:tagKey |error|:(missing value)
	on error errMsg
		display alert "警告" message "理由ファイルの作成またはタグ付けに失敗しました。" & return & errMsg as warning
	end try
end writeReasonFile

on ensureFolderTagOverwrite(targetFolderRef, tagName)
	if targetFolderRef is missing value or tagName is "" then error number -128
	try
		set folderAlias to targetFolderRef as alias
		set folderPathText to POSIX path of folderAlias
		set folderURL to current application's NSURL's fileURLWithPath:folderPathText
		set tagKey to current application's NSURLTagNamesKey
		folderURL's setResourceValue:{tagName} forKey:tagKey |error|:(missing value)
	on error errMsg
		display alert "タグ設定エラー" message errMsg as warning
	end try
end ensureFolderTagOverwrite

on getOrCreateFolder(parentRef, childName)
	if parentRef is missing value or childName is "" then error number -128
	try
		set parentAlias to parentRef as alias
		tell application "Finder"
			try
				return folder childName of folder parentAlias
			on error
				return make new folder at folder parentAlias with properties {name:childName}
			end try
		end tell
	on error errMsg
		display alert "フォルダ作成エラー" message errMsg as warning
		return missing value
	end try
end getOrCreateFolder