Скрытие папки ХХХ

[Sisin]

Задача:
Есть папка, назовем ее ХХХ, находится по адресу С:\XXX. Хочу сделать в контекстном меню рабочего стола команду "Скрыть/Показать ХХХ" и чтобы при нажатии папка становилась скрытой или видимой.
Как это осуществить???

PS: Предполагал сделать на базе http://forum.oszone.net/nextnewesttothread-264469.html, но как-то не срослось...
PSS: Iska, буду рад помощи)))

[yurfed]

Sisin, Добавляем собственные команды в контекстное меню Проводника (http://winchanger.narod.ru/registry/contextexplorer.htm)
Как скрыть папку (http://komputer-world.ru/drugoe/10005)
attrib +h “C:\XXX”
где attrib — сама команда
+h — задание атрибута папке, что бы она стала скрытой.
http://i077.radikal.ru/1410/af/b035220a89dc.png (http://www.radikal.ru)

[Iska]

Хочу сделать в контекстном меню рабочего стола
Не делайте. Сделайте обычный пакетный файл, и положите ярлык на него на свой Рабочий стол. Эффект будет тот же.

[Sisin]

Не делайте. Сделайте обычный пакетный файл, и положите ярлык на него на свой Рабочий стол. Эффект будет тот же. »

Я укоротил задачу. Поэтому объясню получше. На диске в корне лежат несколько десятков папок с названиями фирм. Я хочу в контекстном меню нажимать команду и делать больше половины из них скрытыми для удобства. Вариант с ярлыками не катит, и так им пользуюсь - неудобно!!!

Как правильно изменить этот скрипт:
Hidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
SSHidden = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden"
nnw = "HKEY_CLASSES_ROOT\LibraryFolder\Background\shell\SHHFF\"
nnwn = "HKEY_CLASSES_ROOT\Directory\Background\shell\SHHFF\"
Set Command1 = WScript.CreateObject("WScript.Shell")
Check = Command1.RegRead(Hidden)
If Check = 2 Then
Command1.RegWrite Hidden, 1, "REG_DWORD"
Command1.RegWrite SSHidden, 1, "REG_DWORD"
Command1.RegWrite nnw, "Скрыть папки", "REG_SZ"
Command1.RegWrite nnwn, "Скрыть папки", "REG_SZ"
Else
Command1.RegWrite Hidden, 2, "REG_DWORD"
Command1.RegWrite SSHidden, 0, "REG_DWORD"
Command1.RegWrite nnw, "Показать папки", "REG_SZ"
Command1.RegWrite nnwn, "Показать папки", "REG_SZ"
End If
Command1.SendKeys "{F5}"

[Iska]

Как правильно изменить этот скрипт: »
Sisin, никак. Это совсем не то, что Вы описываете. Этот скрипт меняет параметр отображения скрытых файлов/папок в Проводнике, а не делает скрытыми/видимыми какие-то отдельные файлы/папки. Так что уточняйте, чего же именно Вы хотите.

Я хочу в контекстном меню нажимать команду и делать больше половины из них скрытыми для удобства. Вариант с ярлыками не катит, и так им пользуюсь - неудобно!!! »
Я же, напротив, считаю, что проще запустить ярлык с Рабочего стола.

[gora]

делать больше половины из них скрытыми для удобства. Вариант с ярлыками не катит »
Несколько папок сразу? Тогда ярлык поместите в SendTo и передайте ярлыку "список" выделенных папок.