Renaming files: windows re-selects entire filename when other files resync

To sort of work around this problem, I've created the following AutoHotkey script which is triggered by Ctrl + R and, every time, moves the text cursor to just before the file extension:

GroupAdd, FileExplorer, ahk_class CabinetWClass ; Normal window
GroupAdd, FileExplorer, ahk_class #32770, ShellView ; Save as / open window
GroupAdd, FileExplorer, ahk_class WorkerW ; Desktop view

; FileExplorer_GetSelection() is from a third party
FileExplorer_GetSelection(){
	WinGetClass, winClass, % "ahk_id" . hWnd := WinExist("A")
	if !(winClass ~="Progman|WorkerW|(Cabinet|Explore)WClass")
		Return
	
	shellWindows := ComObjCreate("Shell.Application").Windows
	if (winClass ~= "Progman|WorkerW")
		shellFolderView := shellWindows.FindWindowSW(0, 0, SWC_DESKTOP := 8, 0, SWFO_NEEDDISPATCH := 1).Document
	else {
		for window in shellWindows
			if (hWnd = window.HWND) && (shellFolderView := window.Document)
				break
	}
	for item in shellFolderView.SelectedItems
		result .= (result = "" ? "" : "`n") . item.Path
	if !result
		result := shellFolderView.Folder.Self.Path
	Return result
}

Move_TextCursorToEndOfFileOrFolderName(Name){
	SendInput, {End}
	
	DotPosition := InStr(Name, ".", False, 0) ; 0 makes it search from the right-hand side
	
	If ((Name != "") And (DotPosition)){
		Length := StrLen(Name)
		MoveAmount := Length - DotPosition + 1 ; + 1 ensures that the text cursor is moved to the left-hand side of the file extension
		SendInput, {Left %MoveAmount%}
	}
}

#If WinActive("ahk_group FileExplorer")
	; Ctrl and R → Invoke file rename, deselect whole file name, and move text cursor to (1) the end of the name if a folder or extensionless file or (2) the end of the file name but before the file extension.
	^r::
		Path := FileExplorer_GetSelection()
		SendInput, {F2}
		SplitPath, Path, Name
		Move_TextCursorToEndOfFileOrFolderName(Name)
	Return
#If

I hope it helps others while this problem remains.