[решено] Не могу добавить элемент в контекстное меню для текстовых файлов (*.txt) в windows 7

[kefirko]

Хочу добавить в контекстное меню для файлов с расширением *.txt еще одну строку. Вся беда в том, что вроде бы действия элементарные и одинаковые вне зависимости от типа файла, но почему-то для *.xls мне все удалось сделать, а вот для *.txt не получается (см. три прикрепленных картинки).
Мне не нужно добавить элемент в контекстное меню для ВСЕХ типов, мне нужно ТОЛЬКО для *.txt!
*.xls проверял чисто для эксперимента.
Вот экспортировал из реестра ветки:
.txt
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.txt]
@="txtfile"
"Content Type"="text/plain"
"PerceivedType"="text"

[HKEY_CLASSES_ROOT\.txt\OpenWithList]

[HKEY_CLASSES_ROOT\.txt\OpenWithList\ClPhpEd.exe]
@=""

[HKEY_CLASSES_ROOT\.txt\OpenWithList\dreamweaver.exe]
@=""

[HKEY_CLASSES_ROOT\.txt\OpenWithList\vsta.exe]
@=""

[HKEY_CLASSES_ROOT\.txt\OpenWithProgids]
"VSTA.txt.9.0"=""
"YandexTXT"=""

[HKEY_CLASSES_ROOT\.txt\PersistentHandler]
@="{5e941d80-bf96-11cd-b579-08002b30bfeb}"

[HKEY_CLASSES_ROOT\.txt\ShellNew]
"ItemName"=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,\
6f,00,74,00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,\
00,6e,00,6f,00,74,00,65,00,70,00,61,00,64,00,2e,00,65,00,78,00,65,00,2c,00,\
2d,00,34,00,37,00,30,00,00,00
"NullFile"=""


txtfile
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\txtfile]
@="Text Document"
"FriendlyTypeName"=hex(2):40,00,25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,\
00,6f,00,6f,00,74,00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,\
32,00,5c,00,6e,00,6f,00,74,00,65,00,70,00,61,00,64,00,2e,00,65,00,78,00,65,\
00,2c,00,2d,00,34,00,36,00,39,00,00,00
"EditFlags"=dword:00010000

[HKEY_CLASSES_ROOT\txtfile\DefaultIcon]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,69,00,6d,00,\
61,00,67,00,65,00,72,00,65,00,73,00,2e,00,64,00,6c,00,6c,00,2c,00,2d,00,31,\
00,30,00,32,00,00,00

[HKEY_CLASSES_ROOT\txtfile\shell]

[HKEY_CLASSES_ROOT\txtfile\shell\Edit with Adobe Dreamweaver CS6]

[HKEY_CLASSES_ROOT\txtfile\shell\Edit with Adobe Dreamweaver CS6\Command]
@="\"C:\\Program Files\\Adobe\\Adobe Dreamweaver CS6\\Dreamweaver.exe\",\"%1\""

[HKEY_CLASSES_ROOT\txtfile\shell\open]

[HKEY_CLASSES_ROOT\txtfile\shell\open\command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,4e,00,4f,00,\
54,00,45,00,50,00,41,00,44,00,2e,00,45,00,58,00,45,00,20,00,25,00,31,00,00,\
00

[HKEY_CLASSES_ROOT\txtfile\shell\Open with macros]
@="Открыть с макросом"

[HKEY_CLASSES_ROOT\txtfile\shell\Open with macros\command]
@="cscript script.vbs \"%1\""

[HKEY_CLASSES_ROOT\txtfile\shell\print]

[HKEY_CLASSES_ROOT\txtfile\shell\print\command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,4e,00,4f,00,\
54,00,45,00,50,00,41,00,44,00,2e,00,45,00,58,00,45,00,20,00,2f,00,70,00,20,\
00,25,00,31,00,00,00

[HKEY_CLASSES_ROOT\txtfile\shell\printto]

[HKEY_CLASSES_ROOT\txtfile\shell\printto\command]
@=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,00,25,\
00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,6e,00,6f,00,\
74,00,65,00,70,00,61,00,64,00,2e,00,65,00,78,00,65,00,20,00,2f,00,70,00,74,\
00,20,00,22,00,25,00,31,00,22,00,20,00,22,00,25,00,32,00,22,00,20,00,22,00,\
25,00,33,00,22,00,20,00,22,00,25,00,34,00,22,00,00,00


.xls
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.xls]
"Content Type"="application/vnd.ms-excel"
@="Excel.Sheet.8"

[HKEY_CLASSES_ROOT\.xls\Excel.Sheet.8]
@=""

[HKEY_CLASSES_ROOT\.xls\Excel.Sheet.8\ShellNew]
"FileName"="excel9.xls"

[HKEY_CLASSES_ROOT\.xls\PersistentHandler]
@="{98de59a0-d175-11cd-a7bd-00006b827d94}"


Excel.Sheet.8
Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Excel.Sheet.8]
@="Лист Microsoft Excel"
"EditFlags"=hex:00,00,00,00

[HKEY_CLASSES_ROOT\Excel.Sheet.8\CLSID]
@="{00020820-0000-0000-C000-000000000046}"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\DefaultIcon]
@="C:\\Windows\\Installer\\{90110419-6000-11D3-8CFE-0150048383C9}\\xlicons.exe,1"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\DocObject]
@="16"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\HTML Handler]
@="\"C:\\Program Files\\Microsoft Office\\OFFICE11\\msohtmed.exe\" %1"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\HTML Handler\Icon]
".htm"=".xlshtml"
@=".xlshtml"
".mhtml"=".xlsmhtml"
".html"=".xlshtml"
".mht"=".xlsmhtml"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\HTML Handler\shell]

[HKEY_CLASSES_ROOT\Excel.Sheet.8\HTML Handler\shell\edit]

[HKEY_CLASSES_ROOT\Excel.Sheet.8\HTML Handler\shell\edit\command]
@="\"C:\\Program Files\\Microsoft Office\\OFFICE11\\msohtmed.exe\" /o1 %1"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\Insertable]
@=""

[HKEY_CLASSES_ROOT\Excel.Sheet.8\protocol]
@=""

[HKEY_CLASSES_ROOT\Excel.Sheet.8\protocol\StdFileEditing]
@=""

[HKEY_CLASSES_ROOT\Excel.Sheet.8\protocol\StdFileEditing\RequestDataFormats]
@="NoteshNote,NotesDocAction"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\protocol\StdFileEditing\server]
@="C:\\PROGRA~1\\MICROS~2\\OFFICE11\\EXCEL.EXE"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\protocol\StdFileEditing\SetDataFormats]
@="NotesDocInfo"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\protocol\StdFileEditing\Verb]
@=""

[HKEY_CLASSES_ROOT\Excel.Sheet.8\protocol\StdFileEditing\Verb\0]
@="&Изменить"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\protocol\StdFileEditing\Verb\1]
@="&Открыть"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell]
@="Open"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\New]
@="Созд&ать"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\New\command]
@="\"C:\\Program Files\\Microsoft Office\\OFFICE11\\EXCEL.EXE\" /e /n"
"command"=hex(7):38,00,5d,00,67,00,41,00,56,00,6e,00,2d,00,7d,00,66,00,28,00,\
5a,00,58,00,66,00,65,00,41,00,52,00,36,00,2e,00,6a,00,69,00,45,00,58,00,43,\
00,45,00,4c,00,46,00,69,00,6c,00,65,00,73,00,3e,00,21,00,44,00,65,00,40,00,\
5d,00,56,00,7a,00,28,00,72,00,3d,00,66,00,60,00,31,00,6c,00,66,00,71,00,60,\
00,3f,00,52,00,26,00,20,00,2f,00,65,00,20,00,2f,00,6e,00,00,00,00,00

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\New\ddeexec]
@="[new(\"%1\")]"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\New\ddeexec\application]
@="Excel"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\New\ddeexec\topic]
@="system"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open]
@="&Открыть"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open\command]
@="\"C:\\Program Files\\Microsoft Office\\OFFICE11\\EXCEL.EXE\" /e"
"command"=hex(7):38,00,5d,00,67,00,41,00,56,00,6e,00,2d,00,7d,00,66,00,28,00,\
5a,00,58,00,66,00,65,00,41,00,52,00,36,00,2e,00,6a,00,69,00,45,00,58,00,43,\
00,45,00,4c,00,46,00,69,00,6c,00,65,00,73,00,3e,00,21,00,44,00,65,00,40,00,\
5d,00,56,00,7a,00,28,00,72,00,3d,00,66,00,60,00,31,00,6c,00,66,00,71,00,60,\
00,3f,00,52,00,26,00,20,00,2f,00,65,00,00,00,00,00

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open\ddeexec]
@="[open(\"%1\")]"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open\ddeexec\application]
@="Excel"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open\ddeexec\topic]
@="system"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open with macros]
@="Открыть с макросом"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open with macros\command]
@="cscript script.vbs \"%1\""

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\OpenAsReadOnly]
@="Только для чтения"
"Extended"=""

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\OpenAsReadOnly\command]
@="\"C:\\Program Files\\Microsoft Office\\OFFICE11\\EXCEL.EXE\" /h /e"
"command"=hex(7):38,00,5d,00,67,00,41,00,56,00,6e,00,2d,00,7d,00,66,00,28,00,\
5a,00,58,00,66,00,65,00,41,00,52,00,36,00,2e,00,6a,00,69,00,45,00,58,00,43,\
00,45,00,4c,00,46,00,69,00,6c,00,65,00,73,00,3e,00,21,00,44,00,65,00,40,00,\
5d,00,56,00,7a,00,28,00,72,00,3d,00,66,00,60,00,31,00,6c,00,66,00,71,00,60,\
00,3f,00,52,00,26,00,20,00,2f,00,68,00,20,00,2f,00,65,00,00,00,00,00

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\OpenAsReadOnly\ddeexec]
@="[open(\"%1\",,,,,,,,,,,,,,1,,1)]"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\OpenAsReadOnly\ddeexec\application]
@="Excel"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\OpenAsReadOnly\ddeexec\topic]
@="system"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Print]
@="&Печать"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Print\command]
@="\"C:\\Program Files\\Microsoft Office\\OFFICE11\\EXCEL.EXE\" /e"
"command"=hex(7):38,00,5d,00,67,00,41,00,56,00,6e,00,2d,00,7d,00,66,00,28,00,\
5a,00,58,00,66,00,65,00,41,00,52,00,36,00,2e,00,6a,00,69,00,45,00,58,00,43,\
00,45,00,4c,00,46,00,69,00,6c,00,65,00,73,00,3e,00,21,00,44,00,65,00,40,00,\
5d,00,56,00,7a,00,28,00,72,00,3d,00,66,00,60,00,31,00,6c,00,66,00,71,00,60,\
00,3f,00,52,00,26,00,20,00,2f,00,65,00,00,00,00,00

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Print\ddeexec]
@="[open(\"%1\")][print()][close()]"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Print\ddeexec\application]
@="Excel"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Print\ddeexec\ifexec]
@="[open(\"%1\")][print()][quit()]"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Print\ddeexec\topic]
@="system"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Printto]

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Printto\command]
@="\"C:\\Program Files\\Microsoft Office\\OFFICE11\\EXCEL.EXE\" /e"
"command"=hex(7):38,00,5d,00,67,00,41,00,56,00,6e,00,2d,00,7d,00,66,00,28,00,\
5a,00,58,00,66,00,65,00,41,00,52,00,36,00,2e,00,6a,00,69,00,45,00,58,00,43,\
00,45,00,4c,00,46,00,69,00,6c,00,65,00,73,00,3e,00,21,00,44,00,65,00,40,00,\
5d,00,56,00,7a,00,28,00,72,00,3d,00,66,00,60,00,31,00,6c,00,66,00,71,00,60,\
00,3f,00,52,00,26,00,20,00,2f,00,65,00,00,00,00,00

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Printto\ddeexec]
@="[open(\"%1\")][print(1,,,,,,,,,,,2,\"%2\")][close()]"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Printto\ddeexec\application]
@="Excel"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Printto\ddeexec\ifexec]
@="[open(\"%1\")][print(1,,,,,,,,,,,2,\"%2\")][quit()]"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Printto\ddeexec\topic]
@="system"

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Save As]
@="&Сохранить как..."

[HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Save As\command]
@="C:\\PROGRA~1\\MICROS~2\\Office12\\Moc.exe -f \"%1\""

[HKEY_CLASSES_ROOT\Excel.Sheet.8\XML Handler]

[HKEY_CLASSES_ROOT\Excel.Sheet.8\XML Handler\Icon]
".xml"=".xlxml"
@=".xlxml"



Что не так с веткой txt?

[Iska]

@="cscript script.vbs \"%1\"" »
Попробуйте так:
@="cscript.exe \"Путь\script.vbs\" \"%1\""
Не забудьте экранировать разделители пути «\» тем же символом «\». Например:
@="cscript.exe \"c:\\Мои проекты\\script.vbs\" \"%1\""

[kefirko]

Iska, тут все ровно так как и должно быть. Повторюсь: для *.xls мне все удалось сделать, т.е. все работает, но не для *.txt.
Но все равно проверил ваше предположение. Ничего не поменялось.

[Petya V4sechkin]

[HKEY_CLASSES_ROOT\txtfile\shell\Open with macros]
@="Открыть с макросом"

[HKEY_CLASSES_ROOT\txtfile\shell\Open with macros\command]
@="cscript script.vbs \"%1\""
Запустите Regedit и посмотрите, есть ли там эти записи.

[Iska]

Iska, тут все ровно так как и должно быть. »
Нет. Не должно. Без указания пути к скрипту — последний будет искаться в текущем каталоге. Например:
Ошибка ввода: Не удается найти файл сценария "E:\Песочница\0381\script.vbs".

Но все равно проверил ваше предположение. Ничего не поменялось. »
Что наблюдаете?
Запустите Regedit и посмотрите, есть ли там эти записи. »

[kefirko]

Запустите Regedit и посмотрите, есть ли там эти записи. »
Я их оттуда экспортировал. Конечно есть.

Без указания пути к скрипту — последний будет искаться в текущем каталоге. »
Я знаю. Мне так и надо.

Что наблюдаете? »
Наблюдаем отсутствие изменений.

[Petya V4sechkin]

kefirko, еще здесь проверьте:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt

[kefirko]

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt »
К сожалению тоже никаких изменений.
Сделал по той же логике. Создал раздел shell и в него все записал. Не получилось. Потом попробовал без shell. Все равно ноль эмоций.
Вот экспортированная ветка:
Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt]

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt\OpenAndUseMacro]
@="Открыть и запустить макрос"

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt\OpenAndUseMacro\c ommand]
@="cscript \"D:\\konstructor\\!distribs\\excel vbs скрипты\\OpenAndUseMacro.vbs\" \"%1\""

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt\OpenWithList]
"a"="NOTEPAD.EXE"
"MRUList"="dbcae"
"b"="EXCEL.EXE"
"c"="RASKROY.EXE"
"d"="Bazis70.exe"
"e"="Notepad++Portable.exe"

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt\OpenWithProgids]
"txtfile"=hex(0):

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt\shell]

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt\shell\OpenAndUseM acro]
@="Открыть и запустить макрос"

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt\shell\OpenAndUseM acro\command]
@="cscript \"D:\\konstructor\\!distribs\\excel vbs скрипты\\OpenAndUseMacro.vbs\" \"%1\""

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt\UserChoice]
"Progid"="Applications\\EXCEL.EXE"

[Petya V4sechkin]

Сделал по той же логике
Ничего там не надо было создавать.

Удалите ветку
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt

[kefirko]

Удалите ветку
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt »
Удалил. Ничего.

[kefirko]

Накатал скриптик на VBS, который смотрит, что у вас написано в реестре по адресу HKEY_CLASSES_ROOT\.txt\ и HKEY_CLASSES_ROOT\.xls\ в ключе (По умолчанию). И добавляет соответственно значению этого ключа ветку HKEY_CLASSES_ROOT\txtfile\shell\NewMenuForTest\ (скорее всего) и HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\NewMenuForTest\ (скорее всего). И записывает там в ключ (По умолчанию) значение "NewMenuForTest". После записи у вас по клику правой кнопкой на файлах с расширением *.xls и *.txt в контекстном меню должна появиться еще одна строка "NewMenuForTest". Потом скрипт удаляет добавленные ветки. Все делается с подтверждением действий.
Проверьте кто-н у себя, появится ли у вас еще одна строка в контекстном меню для обоих типов файлов и напишите результат. Вдруг у вас все нормально.
В скриптике этот код:
Option Explicit

'Объявляем переменные
Dim WshShell, Root, Res, _
tWay, tKey, tValue, _
xWay, xKey, xValue

Root = "HKEY_CLASSES_ROOT" 'Корень

'Создаем объект WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

'Считываем значение по-умолчанию для ветки HKEY_CLASSES_ROOT\.txt\
tWay = "\.txt\" 'Имя ветки
tKey = "" 'Имя ключа
tValue = WshShell.RegRead(Root & tWay & tKey)


'Запрос на создание нового ключа и запись в него значения
Res = WshShell.Popup("Создать ключ" & vbCrLf & Root & "\" & tValue & "\shell\NewMenuForTest\" & "(По умолчанию)" & "?",0,_
"Работа с реестром",vbQuestion+vbYesNo)
If Res=vbYes Then 'Нажата кнопка Да
'Записываем новый ключ
WshShell.RegWrite Root & "\" & tValue & "\shell\NewMenuForTest\" & "", "NewMenuForTest"
End If

'Считываем значение по-умолчанию для ветки HKEY_CLASSES_ROOT\.xls\
xWay="\.xls\" 'Имя ветки
tKey="" 'Имя ключа
xValue=WshShell.RegRead(Root & xWay & xKey)

'Запрос на создание нового ключа и запись в него значения
Res=WshShell.Popup("Создать ключ" & vbCrLf & Root & "\" & xValue & "\shell\NewMenuForTest\" & "(По умолчанию)" & "?",0,_
"Работа с реестром",vbQuestion+vbYesNo)
If Res=vbYes Then 'Нажата кнопка Да
'Записываем новый ключ
WshShell.RegWrite Root & "\" & xValue & "\shell\NewMenuForTest\" & "", "NewMenuForTest"
End If

'Запрос на удаление всех внесенных изменений
Res = WshShell.Popup("Удалить раздел" & vbCrLf & Root & "\" & tValue & "\shell\NewMenuForTest\" & "?",0,"Работа с реестром",vbQuestion+vbYesNo)
If Res=vbYes Then 'Нажата кнопка Да
'Удаляем раздел
WshShell.RegDelete Root & "\" & tValue & "\shell\NewMenuForTest\"
End If

'Запрос на удаление всех внесенных изменений
Res=WshShell.Popup("Удалить раздел" & vbCrLf & Root & "\" & xValue & "\shell\NewMenuForTest\" &_
"?",0,"Работа с реестром",vbQuestion+vbYesNo)
If Res=vbYes Then 'Нажата кнопка Да
'Удаляем раздел
WshShell.RegDelete Root & "\" & xValue & "\shell\NewMenuForTest\"
End If

[Илья_Рудоманенко@vk]

kefirko, Вот.

[kefirko]

Илья_Рудоманенко@vk, дома и на работе все работает. Можете эту ветку реестра выложить?

Проверил на работе (Windows 7 Ultimate). Скрипт работает. Для xls меню появляется, для txt - нет.
Проверил дома на своем компе (Windows 7 Ultimate). Скрипт работает. Для xls меню появляется, для txt - нет.
Проверил у жены на ноуте (Windows Vista Home Basic). Скрипт работает. Для xls меню появляется, для txt - тоже появляется.

[Илья_Рудоманенко@vk]

kefirko, Хм..
Во второй раз ошибка не появилась.
У меня Windows 7 Home Basic. Скрипт работает без ошибок. Для xls меню появляется, для txt - появляется.

[kefirko]

Илья_Рудоманенко@vk, тогда тем более от вас бы вашу веточку реестра получить.

[Илья_Рудоманенко@vk]

kefirko, Держите.

[kefirko]

Илья_Рудоманенко@vk, нет.
Вот эту: HKEY_CLASSES_ROOT\txtfile.

[Илья_Рудоманенко@vk]

kefirko, Извиняюсь,вот.

[kefirko]

Илья_Рудоманенко@vk, у меня с вами все символы до одного совпадают, у жены также, плюс дополнительная ветка:
[HKEY_CLASSES_ROOT\txtfile\ShellEx\{8895b1c6-b41f-4c1c-a562-0d564250836f}]
@="{1531d583-8375-4d3f-b5fb-d23bbd169f22}"
Но сдается мне, что копать надо не тут.

Илья_Рудоманенко@vk, если не трудно еще бы вот эту ветку получить: HKEY_CLASSES_ROOT\.txt.

[Илья_Рудоманенко@vk]

kefirko, Вот.