Shell.Application执行命令的五种方法小结

Set objShellApp = CreateObject("Shell.Application") 
Set objFolder = objShellApp.NameSpace("c:/") 
objFolder.Items().item("demo.exe").invokeverb '方法1 
objFolder.Items().item("demo.exe").InvokeVerbEx'方法2 
objShellApp.Open("C:/demo.exe") '方法3 

objShellApp.ShellExecute "demo.exe","","c:/","","1" '方法4,可以加参数和设置参数值 

'方法5 
Set objFolderItem = objShellApp.NameSpace("C:/").Items().item("demo.exe") 
Set objFIVs = objFolderItem.Verbs() 
For i=0 To objFIVs.Count - 1 
'MsgBox objFIVs.Item(i) 
Set objFIV = objFIVs.Item(i) 
If objFIV.Name = "打开(&O)" Then '右键菜单中在中文系统是"打开(&O)"，英文自己改 
objFIV.DoIt 
Exit For 
End IF 
Next