aa = MsgBox("是否安装证书", vbYesNo)
If aa = vbYes Then
    shellzx = """" & App.Path & "\zs.p7b"""
    WshShell.run shellzx
End If
msgbox "OVER"
现在的问题是执行安装证书的时候,证书没出来,OVER对话先出来,我怎么控制呀

解决方案 »

  1.   


    WshShell.run shellzx
    换成
    WshShell.run shellzx,1,True
    试试
      

  2.   

    在If处设置断点,然后单步执行,看看IF条件满足了吗
      

  3.   

    条件肯定满足了,先出来OVER,然后出来证书。
    我的意思是先出来证书,安装完证书以后才OVER
      

  4.   

    用If...else...endif
    如果你在过程中有on error resume next
    将他去掉,有可能出错没警告
      

  5.   

    http://expert.csdn.net/Expert/topic/1934/1934632.xml?temp=.8969385
      

  6.   

    if WshShell.run shellzx这一步已经完成 thenmsgbox "OVER"endif