AutoHotkey Community

; To fetch all info:
SplitPath, FullFileName, name, dir, ext, name_no_ext, drive
   
; The above will set the variables as follows:
; name = Address List.txt
; dir = C:\My Documents
; ext = txt
; name_no_ext = Address List
; drive = C:

F1::
FormatTime, 3DnT,, ddMMyy,HH-mm-sss
ControlGetText, cgt, Edit1, A ;Get Address Bar from Win Explorer
FileMove, %cgt%\Readme.txt, %cgt%\%hereMustBeCurrentDirName%_%3DnT%_ReadMe.txt
return

 ;Same shit but with file what you selected now
F2::
ControlGetText, addr, Edit1, A
ControlGet, file, List, Selected, SysListView321, A,
FileMove, %cgt%\Readme.txt, %cgt%\%CurrentDir%.txt
return

path = %A_AhkPath%

MsgBox %path% ; in example "C:\Programme\AutoHotkey\AutoHotkey.exe"
SplitPath, path,, dir
MsgBox %dir% ; in example "C:\Programme\AutoHotkey"

dirNameOnly := getDirName(dir)
MsgBox %dirNameOnly% ; in example "AutoHotkey"

getDirName(_path) {
    Return SubStr(_path,InStr(_path,"\",0,0)+1)
}

F1:: ;Current Dir to Readme.txt :(
ControlGetText, cgt, Edit1, A
path = %cgt%

;MsgBox %path% ; in example "C:\Programme\AutoHotkey\AutoHotkey.exe"
SplitPath, path,, dir
MsgBox %dir% ; in example "C:\Programme\AutoHotkey"

dirNameOnly := getDirName(dir)
MsgBox %dirNameOnly% ; in example "AutoHotkey"

getDirName(_path) {
    Return SubStr(_path,InStr(_path,"\",0,0)+1)
}

SplitPath, cgt, name, dir, ext, name_no_ext, drive
FileMove, %cgt%\Readme.txt, %cgt%\%dirNameOnly%_ReadMe.txt  ; Rename a single file.
Return

F2:: ;Create Test ReadMe file
FileAppend, `n%1DT%, %A_ScriptDir%\ReadMe.txt
Return

F3:: ; That work no problem.
ControlGetText, cgt, Edit1, A
FormatTime, 3DT,, ddMMyy,HH-mm-sss
FileMove, %cgt%\Readme.txt, %cgt%\%3DT%_ReadMe.txt

!x::ExitApp

F3::
ControlGetText, cgt, Edit1, A
SplitPath, cgt, name, dir, ext, name_no_ext, drive
FileMove, %cgt%\Readme.txt, %cgt%\%name%_ReadMe.txt
Return