what it does is to skip the file extension while you are renaming a file and skip select the name only
The issue I had is to make it unique for explorer and desktop but i couldn't.
For Desktop
Msgbox(0,"Program by ibrahim ghorabah","Enjoy")
opt("WinWaitDelay",0)
$a=""
while @error=0
WinWaitActive("Program Manager", "FolderView")
$a = ControlGetFocus("Program Manager", "FolderView")
IF $A="Edit1" THEN
ControlSend("Program Manager", "FolderView","[CLASS:Edit; INSTANCE:1]", "{LEFT}{LEFT}{LEFT}{LEFT}{SHIFTDOWN}{CTRLDOWN}{HOME}{SHIFTUP}{CTRLUP}")
while $A="Edit1"
$a = ControlGetFocus("Program Manager", "FolderView")
if $a<>"Edit1" then ExitLoop
WEnd
Else
WinWaitActive("Program Manager", "FolderView")
ENDIf
WEnd
For Explorer
opt("WinWaitDelay",0)
opt("Wintitlematchmode",4)
$a=""
while @error=0
WinWaitActive("classname=CabinetWClass", "")
$a = ControlGetFocus("classname=CabinetWClass", "")
IF $A="Edit2" THEN
ControlSend("classname=CabinetWClass","","[CLASS:Edit; INSTANCE:2]", "{LEFT}{LEFT}{LEFT}{LEFT}{SHIFTDOWN}{CTRLDOWN}{HOME}{SHIFTUP}{CTRLUP}")
while $A="Edit2"
$a = ControlGetFocus("classname=CabinetWClass", "")
if $a<>"Edit2" then ExitLoop
WEnd
Else
WinWaitActive("classname=CabinetWClass", "")
ENDIf
WEnd
any modifications are welcome!!