自定义升级问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自定义升级问题

共有2388人关注过本帖树形打印复制链接主题：自定义升级问题

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：112361 积分：572061 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/3/10 15:41:00 [显示全部帖子]

试试

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

Application.Doevents

System.Threading.Thread.Sleep(2000)

Dim zip As New zipFile

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

zip.Extractall(dpath) '全部解压到客户端运行文件夹,要升级两次

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

Application.Doevents

System.Threading.Thread.Sleep(2000)

If FileSys.FileExists(s4) Then '如果指定的文件存在

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

End If 解压后也并没有删除升级包

Exit0 = "1"

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：112361 积分：572061 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/3/10 16:29:00 [显示全部帖子]

等一下前面做完事，其次等一下杀毒软件检测完

主题：自定义升级问题