FileName := "\" A_YYYY A_MM A_DD "_" A_Hour A_Min A_Sec ".txt"  ; шаблон имени нового файла
SetTitleMatchMode, Regex
Return

#IfWinActive ahk_class (Progman|WorkerW|CabinetWClass)
^!vk4E::  ; Ctrl + Alt + N
   WinGetClass, class, A
   if (class ~= "Progman|WorkerW")
      FolderPath := A_Desktop
   else  {
      for item in ComObjCreate("Shell.Application").Windows
         continue
      until WinExist("A") = item.hwnd || item := ""
      FolderPath := item.Document.Folder.Self.Path
   }
   SplitPath, FolderPath,,,,, Drive
   if InStr(Drive, "::")  {
      MsgBox, Это служебная папка, в ней нельзя создать файл
      Return
   }
   NewFileName := FolderPath "\" FileName ".txt"
   
   While FileExist(NewFileName)  {
      RegExMatch(NewFileName, "i).*\\" FileName " \((\d+)\)\.txt", number)
      NewFileName := FolderPath "\" FileName " (" . (number1 = "" ? 2 : number1 + 1) . ").txt"
   }

   FileAppend,, % NewFileName
   Run, % NewFileName
   Return