主题：[求助]小升级update1.zip不更新splash

直接放在update1.zip里面即可。

直接这样写，但是需要第二次启动才能用新的封面

If Syscmd.Project.Update(False,True) = False Then '如果没有升级

   FileSys.CopyFile(ProjectPath & "splash.jpg", ApplicationPath & "splash.jpg", True)
   Forms("窗口1").Open
End If

1、覆盖原文件；

2、发布那里，你不是可以直接添加附件的么？

3、http无法做到身份验证的。路径你设置得复制一些不就行了？

4、如果你publish里面的exe启动了，自然不能覆盖掉重新发布。你把程序关闭了才行的。

我msgbox看了一下，没问题的

msgbox(PublishDate)

应该是转换的时候错了，改成

Dim Cdate1 As Date = Format(PublishDate,"yyyy/MM/dd HH:mm") '客户端发布日期

你要把其它一些地方也做修改，才会更改的，如果只修改大小写，不会保存此次修改的。

写到afterOpenProject事件啊，不可能提示你那个错误。

不可能，根本就不会执行那里的代码。

你加入msgbox看一下是否进入if判断里面的代码。

不行，就做个例子上来测试。

 你第一个If条件，在更新的时候就不会进入的，怎么可能触发代码。

 做一个不行的例子上来测试。