[BOBAT]

Код zapusk.vbs

Код:

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c icon_hide_icon_txt.cmd", 0, false

Код hide_icon_txt.cmd

Код:

@Echo Off
ChCp 1251>Nul
Attrib -H "*.ico"
Set fldr=%~dp0
If Exist "%~dp0desktop.ini" Attrib -H -S "%~dp0desktop.ini"
For %%i In ("%~dp0*.ico") Do (
	(Echo [.ShellClassInfo]
	Echo IconResource=%%~nxi,0
	Ver | Find "6.">Nul || (Echo IconFile=%%~nxi& Echo IconIndex=0)
	)>"%~dp0desktop.ini"
)
Attrib +H +S "%~dp0desktop.ini"
Attrib +R "%fldr:~0,-1%"
Attrib +H "*.ico"

Добавил пункт в меню через реестр

Код:

[HKEY_CLASSES_ROOT\Directory\Background\shell\HHFF]
@="Изменить иконку папки"
"HasLUAShield"=""

[HKEY_CLASSES_ROOT\Directory\Background\shell\HHFF\command]
@="WScript C:\\Windows\\zapusk.vbs"