【发布时间】:2017-03-19 06:47:03
【问题描述】:
在处理 ZIP 文件时需要一点帮助,我已经为我的主应用程序制作了一个 autopupdate 应用程序,它工作正常并从服务器下载 Zip 文件,我能够完全提取它,但问题是文件是否存在已经在那里,如果我尝试再次解压缩它,它会显示替换选项,我想避免该选项,只需替换它而不发出警报。请让我知道我该怎么做。
解压代码如下:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim shObj As Object = Activator.CreateInstance(Type.GetTypeFromProgID("Shell.Application"))
Dim output As Object = shObj.namespace((Application.StartupPath))
Dim input As Object = shObj.NameSpace((Application.StartupPath + "\temp.zip"))
output.CopyHere((input.items), 4)
End Sub
【问题讨论】: