CODE: [Copy to clipboard]
::: Set objShell = CreateObject("Shell.Application")
::: Set objFolder = objShell.Namespace("C:\Windows\System32")
::: Set objFolderItem = objFolder.ParseName("calc.exe")
:::
::: ' 列出快捷菜单所有动词
::: 'Set colVerbs = objFolderItem.Verbs
::: 'For Each objVerb in colVerbs
::: ' Wscript.Echo objVerb
::: 'Next
:::
::: objFolderItem.InvokeVerb("附到「开始」菜单(&I)")
::: 'objFolderItem.InvokeVerb("从「开始」菜单脱离(&I)")
@echo off
findstr "^:::" < %~f0 > _%~n0.vbs
if exist _%~n0.vbs (cscript //nologo _%~n0.vbs & del _%~n0.vbs)
[1] 可以使用脚本将文件放到“开始”菜单上吗?