主题：手动升级问题

老师：一直有个升级问题，做了些测试，使终有的电脑有时不能自动升级，我想系统是默认安在指定文件夹的，我就按下面这样做了测试，但在项目里测试可以，能提示更新完成，关闭，并能升级成功，但发布安装好的程序就不行，现象是有下载进度等，但之后就没有反映，也没有更新成功。这怎么原因？

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

可以下载，现在的问题的在项目里执行是可以，但发布后的程序运行就不行，是在同一电脑上测试的，请老师帮改一个手动升级的，在论坛里找的那个也不行。谢谢