aa = MsgBox("是否安装证书", vbYesNo)
If aa = vbYes Then
shellzx = """" & App.Path & "\zs.p7b"""
WshShell.run shellzx
End If
msgbox "OVER"
现在的问题是执行安装证书的时候,证书没出来,OVER对话先出来,我怎么控制呀
If aa = vbYes Then
shellzx = """" & App.Path & "\zs.p7b"""
WshShell.run shellzx
End If
msgbox "OVER"
现在的问题是执行安装证书的时候,证书没出来,OVER对话先出来,我怎么控制呀
WshShell.run shellzx
换成
WshShell.run shellzx,1,True
试试
我的意思是先出来证书,安装完证书以后才OVER
如果你在过程中有on error resume next
将他去掉,有可能出错没警告