关键是原来就是用ft的方式升级啊,但是不能自动重启,
If ftp.Download("\Update\Update2.Zip","D:\UpdateTemporary\Update2.Zip",True) = True Then '如果下载程序文件成功
UpdatePath = "D:\UpdateTemporary"
RemoteUpdate = False
msgbox(1)
If Syscmd.Project.Update(False,False) = True Then
msgbox(2)
'----删除临时升级目录----
If FileSys.DirectoryExists("D:\UpdateTemporary") = True Then
FileSys.DeleteDirectory("D:\UpdateTemporary",2,2)
End If
Application.restart
Return '升级完成后必须先中止后面的代码,否则会出错
End If
End If
上面将升级文件下载到本地临时目录都没问题,可以正常显示msgbox(1) ,但却不能显示msgbox(2),为什么这句
If Syscmd.Project.Update(False,False) = True Then 不会为true,说明没有升级成功,找不到原因啊
加好友 
发短信
Post By：2017/8/21 11:49:00 [只看该作者]
