Code: Select all
R_CleanFileNames()
{
Loop Files, *.*
{ if (A_LoopFileExt != "ahk")
{ filename := SubStr(A_LoopFileName,1,-StrLen(A_LoopFileExt)-1)
filename := RegExReplace(filename,"[^a-zżźćńółęąśŻŹĆĄŚĘŁÓŃA-Z]+"," ") ; only accept alphabet
filename := trim(filename) ; remove leading and trailing spaces
StringLower filename, filename, T
FileMove % A_LoopFileName, % filename "." A_LoopFileExt , true
}
}
}
R_CleanFileNames()