Добавить текст в начало имени выделенных файлов

#NoEnv
#NoTrayIcon
ListLines, Off
#KeyHistory, 0
SetBatchLines,-1
#SingleInstance, Force
global ShAp := ComObjCreate("Shell.Application")
global Desk := ShAp.NameSpace(0)
 
!F1::AddInFront("блабла(х)_")
!F2::AddInFront("01_А6(11)_")
!F3::AddInFront("блабла(y)_")
 
AddInFront(LSubStr)
{  WinGetClass, class, A
   If class = CabinetWClass
   {  WinGet, hwnd,, A
      For Win in ShAp.Windows
      If Win.hwnd = hwnd
      {  For Item in Win.Document.SelectedItems
         If !Desk.ParseName(Item.Path).IsFolder
         {  Name := Item.Name
            Path := Item.Parent.Self.Path . "\"
            Arr := StrSplit(Name, "_")
            Num := Arr[1]
            If !RegexMatch(Name, "^\d+_" . RegexReplace(SubStr(LSubStr, StrLen(Num) + 2), "[)^($-]", "\$0"))
            {   If SubStr(Item.Name, 1, StrLen(LSubStr)) != LSubStr
                  If Not FileExist(Path . LSubStr . Name)
                     Item.Name := LSubStr . Name
            } Else { If Arr.MaxIndex() = 1
            { Name := LSubStr . Name
            } Else If Num is integer
            {  While FileExist(Path . Name)
               {  Num := Format("{:02}", Num + 1)
                  Name := Num . SubStr(Name, StrLen(Num) + 1)
               }
            }
            Item.Name := Name
            }
         }
         Break
      }
   }
}