Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Morpheus

Ветеран


Сообщения: 12426
Благодарности: 2328

Профиль | Отправить PM | Цитировать


Код: Выделить весь код
Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.Namespace("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories") 
Set objFolderItem = objFolder.ParseName("Calculator.lnk") 
Set colVerbs = objFolderItem.Verbs 
For Each objVerb in colVerbs 
    If Replace(objVerb.name, "&", "") = "Закрепить в меню ""Пуск""" Then objVerb.DoIt 
Next
VBS/WSH/JS - [решено] Кавычки внутри кавычек в VBS
Это сообщение посчитали полезным следующие участники:

Отправлено: 22:53, 03-01-2012 | #3