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
#IfI hope it helps others while this problem remains.
Did this post help you? If so, please give it a Like below.
Still stuck? Ask me a question!
Tips & Tricks Find new ways to stay in flow or share your tips on how you work smarter with Dropbox.