您所在位置：主题：[讨论]求教由Namespace取得的特殊文件夹对象执行动作无效
zhclvip
[专家分：0] 发布于 2006-11-11 11:54:00
Set Ashell=WScript.CreateObject("Shell.Application")
Set oControlPanel = Ashell.NameSpace(ssfCONTROLS) '3
……
For Each verb In oLanConnection.Verbs
MsgBox verb.Name
If verb.Name = sEnableVerb Or verb.Name = sDisableVerb Then
verb.Doit() '此处执行无效，？？？运行并不出错
Exit For
End If
Next
Set oControlPanel = Ashell.NameSpace(ssfCONTROLS) '3
……
For Each verb In oLanConnection.Verbs
MsgBox verb.Name
If verb.Name = sEnableVerb Or verb.Name = sDisableVerb Then
verb.Doit() '此处执行无效，？？？运行并不出错
Exit For
End If
Next