Question

我正在尝试编写一个程序来使用vb.net提取压缩文件。我遇到了一个问题 - 当我尝试提取文件时，它会询问替换协议，但我需要提取这些文件而不要求我达成协议。

这是我使用的代码：

Dim shObj As Object =        Activator.CreateInstance(Type.GetTypeFromProgID("Shell.Application"))
Dim outputFolder As String = appPath
Dim inputZip As String = appPath + "\patchFile.zip"
    IO.Directory.CreateDirectory(outputFolder)

    'Declare the folder where the items will be extracted.
    Dim output As Object = shObj.NameSpace((outputFolder))

    'Declare the input zip file.
    Dim input As Object = shObj.NameSpace((inputZip))

    'Extract the items from the zip file.
    output.CopyHere((input.Items), 4)

Answer 1

我认为您可以使用CopyHere的第二个参数来响应所有显示的对话框，并且它应该避开您的对话框。

output.CopyHere((input.Items), 16)

编辑：

如果你仍然需要选项4来不显示进度，你可以将两者结合起来，这样它就会是20而不是16

Vb.net解压缩程序

1 个答案: