[gora]

Попробуйте этот скрипт:

Код:

@Echo Off
ChCp 1251>Nul
:: Скрипт SetIcon.cmd
:: Запуск скрипта SetIcon.cmd "Путь к папке у которой меняем иконку" "Имя файла иконки без пути"
Set fldr=%~1
If Not Defined fldr Exit
If "%fldr:~-1%"=="\" Set fldr=%fldr:~0,-1%
Set icon=%~2
If Not Defined icon Exit
:: Папка с иконками и скриптом SetIcon.cmd
Set home=c:\ICOFolders
If Exist "%fldr%\desktop.ini" Attrib -H -S "%fldr%\desktop.ini"
If "%icon%"=="No" (
	Del "%fldr%\desktop.ini"
	Attrib -R "%fldr%"
	Exit
)
(Echo [.ShellClassInfo]
Echo IconResource="%home%\%icon%",0
Ver | Find "6.">Nul || (Echo IconFile="%home%\%icon%"& Echo IconIndex=0)
)>"%fldr%\desktop.ini"
Attrib +H +S "%fldr%\desktop.ini"
Attrib +R "%fldr%"

Положите его в папку с иконками, а в команде его запуска (то, что вы делаете через контекстное меню) пропишите два параметра: "Путь к папке у которой меняем иконку" "Имя файла иконки без пути"