老师:一直有个升级问题,做了些测试,使终有的电脑有时不能自动升级,我想系统是默认安在指定文件夹的,我就按下面这样做了测试,但在项目里测试可以,能提示更新完成,关闭,并能升级成功,但发布安装好的程序就不行,现象是有下载进度等,但之后就没有反映,也没有更新成功。这怎么原因?
Dim ftp1 As New FtpClient
ftp1.Host=
ftp1.Account =
ftp1.Password =
If ftp1.Download("\shengji\update2.zip", "d:\update2.zip",True) = True Then
Dim zip As New ZipFile
zip.Open("d:\update2.zip")
' zip.Extractall(ProjectPath )
zip.Extractall("d:\教务系统\" )
zip.Close()
MessageBox.Show("更新完成,重新运行")
Syscmd.Project.Exit()
End If