主题：强制更新代码下载和解压路径出错

项目发布后，由于无法做跨版本升级，就找了论坛里面一个高手的解决方案

代码如下：

network.DownloadFile(updatepath & "/update.zip",projectpath &"update.zip" ,"","",True,60000,True)

Dim zip As New zipFile

zip.Open( projectpath & "update.zip")

zip.Extractall(projectpath )

zip.Close()

messagebox.show("更新完成")

但是下载和解压的时候都是在Project下

如何让他解压和下载在程序根目录，解压完成后自动重启程序呢？

<!--EndFragment-->