aloha20200628

回复 1# yyz219

创建一个快捷方式》用资源管理器打开一个指定目录...

Set WshShell = WScript.CreateObject("WScript.Shell")
set oShellLink = WshShell.CreateShortcut("D:\桌面\Desktop\！！！\研究\222\还原百分等.lnk")
oShellLink.TargetPath = "D:\1绿色软件\网络\浏览器\还原百分等"
oShellLink.Save
复制代码

aloha20200628

回复 3# yyz219

若用桌面快捷方式右键菜单中的 ‘固定到任务栏’ 选项将其钉在任务栏，4楼代码即可，若要创建桌面快捷方式与钉在任务栏一气呵成，可用以下代码，存为 test.vbs 运行...

set ws = createobject("wscript.shell")
set lnk = ws.createshortcut("D:\桌面\Desktop\！！！\研究\222\还原百分等.lnk")
lnk.targetpath = "c:\windows\explorer.exe"
lnk.arguments = "D:\1绿色软件\网络\浏览器\还原百分等"
lnk.save
set sa = createobject("shell.application")
set d = sa.namespace("D:\桌面\Desktop\！！！\研究\222")
for each verb in d.parsename("还原百分等.lnk").verbs
    if (verb.name = "固定到任务栏(&K)") then
        verb.doit
        wsh.quit
    end if
next
复制代码