Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
Как кардинально повысить эффективность работы на компьютере? Организовать рабочее место, выработать отвечающий задачам стиль работы, подобрать подходящие программы-инструменты и… автоматизировать рутинные операции. О последнем и поговорим.
SetTimer, waiting, 200
GoSub, waiting
IfWinActive, ahk_class Progman
currentDir := A_DESKTOP
else
ControlGetText, currentDir, Edit1
GroupAdd, windowz, ahk_class CabinetWClass
GroupAdd, windowz, ahk_class Progman
#IfWinActive, ahk_group windowz
^g::
KeyWait Control
GroupSelectedFiles()
return
^+g::
KeyWait Control
KeyWait Shift
UngroupSelectedFiles()
return
#IfWinActive
Loop, parse, clipboard, `n, `r
{
groupPath = %A_LoopField%
attributes := FileExist(groupPath)
IfInString, attributes, D
{
Loop, %groupPath%\*.*,1,0
{
MoveFileOrDir(A_LoopFileFullPath, currentDir)
}
FileRecycle, %groupPath%\Thumbs.db
If ErrorLevel <> 0
FileRecycle, %groupPath%\Thumbs.db, 1
FileRemoveDir, %groupPath%, 0 ;non-recursive
}
}
Группирование файлов в проводнике Windows