Shell.Application執(zhí)行命令的方法有哪些-創(chuàng)新互聯(lián)

這篇文章將為大家詳細講解有關(guān)Shell.Application執(zhí)行命令的方法有哪些，小編覺得挺實用的，因此分享給大家做個參考，希望大家閱讀完這篇文章后可以有所收獲。

成都創(chuàng)新互聯(lián)公司是一家專注于網(wǎng)站制作、成都做網(wǎng)站與策劃設(shè)計,象山網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)10多年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:象山等地區(qū)。象山做網(wǎng)站價格咨詢:18980820575

代碼如下:

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,可以加參數(shù)和設(shè)置參數(shù)值 
'方法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 '右鍵菜單中在中文系統(tǒng)是"打開(&O)"，英文自己改 
objFIV.DoIt 
Exit For 
End IF 
Next

關(guān)于“Shell.Application執(zhí)行命令的方法有哪些”這篇文章就分享到這里了，希望以上內(nèi)容可以對大家有一定的幫助，使各位可以學(xué)到更多知識，如果覺得文章不錯，請把它分享出去讓更多的人看到。

名稱欄目：Shell.Application執(zhí)行命令的方法有哪些-創(chuàng)新互聯(lián)
網(wǎng)站網(wǎng)址：http://m.jiaotiyi.com/article/jjggh.html