主题：[求助]自动升级1次为何出现3次登录？

 

'下面是用到的全局代码

Public pname As String="项目管理系统" '项目名称

Public rpath As String="d:\" & pname & "\数据文件\project" '项目文件运行路径

Public upath As String="\项目管理系统\数据文件\" '服务器上的项目文件升级路径和备份路径

Public datafile As String = pname & ".zip" '包含最新升级数据的文件名

 

'下面是AfterOpenProject事件中自动静默下载升级文件并更新的代码

Dim ftp1 As new ftpclient

ftp1.TimeOut=20000 '用于设置尝试操作的毫秒数

ftp1.host=IPa '设置单位ftp服务器地址，IPa为全局代码

ftp1.Account = ftpAccount '设置ftp登录用户名，ftpAccount为全局代码

ftp1.password = ftppassword '设置ftp登录密码，ftppassword为全局代码

Dim s1 As Date=ftp1.GetFileDate(upath & datafile) '获取服务器上升级文件的日期时间

If s1>publishdate Then '如果较现在版本的日期时间新则下载并升级

    Dim s3 As String = upath & datafile '服务器上升级文件中包含升级内容的文件

    Dim s4 As String = rpath & "\" & datafile '准备保存在客户端的包含升级内容的文件

    ftp1.download(s3,s4,False) '静默下载并另存

    Dim zip As New zipFile

    zip.Open(s4) '打开升级文件

    zip.Extractall(rpath) '全部解压到客户端运行文件夹

    zip.Close() '关闭升级文件

    FileSys.deleteFile(s4,2,2) '删除升级文件

    Syscmd.Project.Open(ProjectFile) '重新打开项目

End If

Forms("用户登录").Open()

 

求助：上述代码怎么看都应该只出现一次登录界面，为何会出现3次呢？

狐爸，问题是执行了Syscmd.Project.Open(ProjectFile)，就不该继续执行Forms("用户登录").Open()呀。