论坛 › 已解决问题区 › 请高人帮我修改一下代码。

entadywand 发表于 2008-9-22 22:18:10

请高人帮我修改一下代码。

小弟是菜鸟 想做个免安装的东西。所以来这里请教。

kk.exe是补丁，它运行后会写入eeeeee.dll等一些文件，由于kk运行很慢，所以我想加个判断的东西
如果写入的文件已经存在，就直接执行bb，如果不存在，那么就运行补丁kk，再运行bb。可是现在
的问题是，弄出来它根本不判断，每次都是警告，然后再是提示，最后运行bb。那位大哥能帮我改改？
多谢了！


If FileExists("C:\Program Files\yyyyyy\xxxxxx\eeeeee.dll")Then
    MsgBox(0,"欢迎","开始执行")
    run("c:\aaaaa\bb.exe")
Else
        MsgBox(0,"警告","文件缺失")
        RunWait("c:\aaaaa\kk.exe")
        MsgBox(48,"提示","补丁安装完毕")
                RunWait("c:\aaaaa\bb.exe")
Endif

[ 本帖最后由 entadywand 于 2008-9-24 14:24 编辑 ]

entadywand 发表于 2008-9-23 07:36:19

都凉了一夜了，没有人帮我看看吗？

palkiller 发表于 2008-9-23 09:04:56

If FileExists("C:\Program Files\yyyyyy\xxxxxx\eeeeee.dll")=1 Then
    MsgBox(0,"欢迎","开始执行")
    run("c:\aaaaa\bb.exe")
Else
      MsgBox(0,"警告","文件缺失")
      RunWait("c:\aaaaa\kk.exe")
      MsgBox(48,"提示","补丁安装完毕")
                RunWait("c:\aaaaa\bb.exe")
Endif

luke 发表于 2008-9-23 09:20:35

我按照程序要求，建了相应的文件夹和文件，执行正常。
下面是代码，我只在警告窗口中加了2秒延时，以便自动执行下一行：
If FileExists("C:\Program Files\yyyyyy\xxxxxx\eeeeee.dll")Then
    MsgBox(0,"欢迎","开始执行")
    run("c:\aaaaa\bb.exe")
Else
      MsgBox(0,"警告","文件缺失", 2)
      RunWait("c:\aaaaa\kk.exe")
      MsgBox(48,"提示","补丁安装完毕")
                RunWait("c:\aaaaa\bb.exe")
Endif

luke 发表于 2008-9-23 09:24:35

附上测试文件。

entadywand 发表于 2008-9-23 09:45:25

谢谢两位的解答，:face (33): :face (33):
我再试试，就是不知道为什么这个不自动判断？

查看完整版本: 请高人帮我修改一下代码。