Set objShell = CreateObject("Wscript.Shell")
 a = WScript.ScriptFullName
 b = Left(a,Len(a) - Len(WScript.ScriptName))
Set objHTML=CreateObject("htmlfile")
c=objHTML.ParentWindow.ClipboardData.GetData("text")
If c = "1" Then
c = "皮肤图标查看.mht"
d = "opera.exe file://localhost/" & b & c
ElseIf c = "2" Then
c = "按钮制作工具.mht"
d = "opera.exe file://localhost/" & b & c
ElseIf c = "3" Then
c = "首选项.mht"
d = "opera.exe file://localhost/" & b & c
ElseIf c = "4" Then
c = "web\"
d = "opera.exe file://localhost/" & b & c
ElseIf c = "5" Then
c = "web\"
d = "C:\Windows\explorer.exe" & " " & b & c

ElseIf c = "6" Then
c = "fs.html"
d = "opera.exe file://localhost/" & b & c

ElseIf c = "" Then
c = "web\"
d = "opera.exe file://localhost/" & b & c

ElseIf c = "" Then
c = "profile\"
d = "C:\Windows\explorer.exe" & " " & b & c
End If
objShell.Run d
'Set objShell = CreateObject("Wscript.Shell")
 a = WScript.ScriptFullName
 b = Left(a,Len(a) - Len(WScript.ScriptName))
Set objHTML=CreateObject("htmlfile")
c=objHTML.ParentWindow.ClipboardData.GetData("text")
If c = "1" Then
c = "皮肤图标查看.mht"
d = "opera.exe file://localhost/" & b & c
ElseIf c = "2" Then
c = "按钮制作工具.mht"
d = "opera.exe file://localhost/" & b & c
ElseIf c = "3" Then
c = "首选项.mht"
d = "opera.exe file://localhost/" & b & c
ElseIf c = "4" Then
c = "web\"
d = "opera.exe file://localhost/" & b & c
ElseIf c = "5" Then
c = "web\"
d = "C:\Windows\explorer.exe" & " " & b & c

ElseIf c = "6" Then
c = "seam\fs.html"
d = "opera.exe file://localhost/" & b & c

ElseIf c = "" Then
c = "web\"
d = "opera.exe file://localhost/" & b & c

ElseIf c = "" Then
c = "profile\"
d = "C:\Windows\explorer.exe" & " " & b & c

End If
objShell.Run d
'其中的文件和文件夹与VBS在同一目录
复制代码

Focus address field & Clear & Insert, "4" & Delay, 10 & Select all & Cut & Execute program, "optools\document.vbs"
命令解释: 聚焦地址栏 & 清空 & 输入4 & 延迟10 & 选中4 & 剪切 & 调用VBS
结果: 在新标签中打开web文件夹（为何会在新标签中打开有点费解，因为若直接复制全路径再enter是在当前标签打开）
复制代码