#SingleInstance force
#NoTrayIcon
#NoEnv
CoordMode, Mouse

MouseGetPos,X,Y
Loop, %1%
 path := A_LoopFileLongPath
If !path
 ExitApp
SplitPath,path,,dir,ext,name
Gui, Add, Edit, vname -TabStop, %name%
Gui, Add, Edit, vext x+0, %ext%
Gui, Add, Button, Default -TabStop, Rename
Gui, Show,% "x" X-50 "y" Y-50, *.*
return

ButtonRename:
Gui, Submit
FileMove,% path,% dir "\" name "." ext
If ErrorLevel
 MsgBox,16,*.*,Error: "%path%" could not be renamed.
GuiClose:
ExitApp