network.DownloadFile(updatepath & "/update.zip",projectpath &"update.zip" ,"","",True,60000,True) Dim zip As New zipFile zip.Open( projectpath & "update.zip") zip.Extractall(projectpath) '关键是这句,这句是你要把文件解压到那个路径,如果要更新dll等,路径建议变一下。 zip.Close() messagebox.show("更新完成")